如何在Lazarus FreePascal中将TXT文件数据写入Memobox？

嘿，我来帮你搞定这个MemoBox数据写入的问题！首先先纠正一个小细节——你定义的cityname:integer应该是笔误吧？城市名称肯定是字符串类型呀，先把类型定义修正正确：

type
  TProductEntry = record
    CityName: string;   // 城市名是字符串，不是整数哦
    Product: string;
    Quantity: Integer;
  end;

接下来分两种场景给你解决方案：

场景1：已经把所有数据读取到了数组/列表中 #

如果已经把TXT里的每组数据（城市、产品、数量）存到了一个数组或者动态数组里，只需要遍历数据，格式化后添加到MemoBox的Lines属性即可：

var
  I: Integer;
  CurrentEntry: TProductEntry;
  ProductList: array of TProductEntry; // 假设这是你已经填充好的数据数组
begin
  // 先清空MemoBox，避免残留旧数据
  Memo1.Clear;

  // 遍历所有数据条目
  for I := 0 to High(ProductList) do
  begin
    CurrentEntry := ProductList[I];
    // 格式化每行内容，直接添加到MemoBox
    // 如果需要更整齐的对齐，可以调整Format的格式参数，比如固定宽度
    Memo1.Lines.Add(Format('%-12s %-15s %d', 
      [CurrentEntry.CityName, CurrentEntry.Product, CurrentEntry.Quantity]));
  end;
end;

场景2：边读取TXT文件边写入MemoBox #

如果不想先把所有数据存起来，想读一条写一条，这样更节省内存，代码可以这么写：

注意你的TXT文件是一行里包含多组数据（比如Budapest tomato 23 Dublin tv 45 ...），所以要用Read而不是Readln来逐个读取每个字段，直到文件结束：

var
  DataFile: TextFile;
  City: string;
  Product: string;
  Qty: Integer;
begin
  Memo1.Clear;
  // 绑定你的TXT文件路径
  AssignFile(DataFile, '你的数据文件路径.txt');
  Reset(DataFile); // 打开文件准备读取

  try
    // 循环读取每组三个字段：城市、产品、数量
    while not Eof(DataFile) do
    begin
      Read(DataFile, City);
      Read(DataFile, Product);
      Read(DataFile, Qty);
      // 直接写入MemoBox
      Memo1.Lines.Add(Format('%s %s %d', [City, Product, Qty]));
    end;
  finally
    CloseFile(DataFile); // 确保文件被关闭
  end;
end;

关键知识点： #

• Lazarus的TMemo组件通过Lines属性管理所有文本行，Lines.Add()方法可以添加一行新内容
• Clear方法用于清空MemoBox的现有内容，避免重复写入
• Format函数可以帮你快速格式化字符串，让输出更整齐

内容的提问来源于stack exchange，提问作者Erik