在FreePascal中将文本文件读入列表

我有一个文本文件，包括：

John###198cm###90kg###19age
Tom###120cm###34kg###8age

我想用FreePascal将它们从文件中读入两个列表

---

我曾尝试使用LoadFromFile函数，它应该在列表中划出一行，但它对我不起作用。

这是您问题的变体

下面是一个使用

ReplaceStr（）

将

####

字符转换为CR-LF对的示例。 当指定给新列表的文本属性时，它将被拆分为多个项目

Uses
  StrUtils;

procedure HandleText;
var
  i : Integer;
  sSourceList : TStringList;
  sExpandedList : TStringList;
begin
  sSourceList := TStringList.Create;
  sExpandedList := TStringList.Create;
  try
    sSourceList.LoadFromFile('MySource.txt');
    for i := 0 to sSourceList.Count-1 do begin      
      sExpandedList.Text := ReplaceStr(sSourceList[i],'###',#13#10);
      // Do something with your lists 
      // sExpandedList[0] = 'John' etc ...
    end;
  finally
    sSourceList.Free;
    sExpandedList.Free;
  end;
end;