pascal - テキスト ファイルから FreePascal のリストへの読み込み

Question

以下を含むテキストファイルがあります。

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

そして、それらをファイルから FreePascal の 2 つのリストに読み込みたいと考えています。

行をリストにする LoadFromFile 関数を使用しようとしましたが、うまくいきません。

Answer 1

これはあなたの質問のバリエーションですReading from file FreePascal。

文字を CR LF ペアReplaceStr()に変換するために使用する例を次に示します。###新しいリストの text プロパティに割り当てると、アイテムに分割されます。

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;