delphi - 如何在delphi中使用parsedelmeter解析索引矩阵

Question

我想用这个代码使用空格分隔符解析索引矩阵

    Temp := TStringList.Create;
  Temp.LoadFromFile('training.txt');
  Row := 1;
  for I := 0 to Temp.Count-1 do
  begin
    S := Temp.Strings[I];
   ParseDelimited(Memo1.Lines, Trim(S), ' ');
    Inc(Row);
  end;

该代码用于解析在值之间包含一个空格的索引矩阵，但是我的矩阵在值之间包含一个和两个空格？任何人都可以帮助我我该怎么办？

Answer 1

TStrings 类具有 CommaText 属性。阅读并使用它。它适用于数据块之间的多个空格：

var
  Temp, TempList: TStringList;
  i: Integer;
begin
  Temp := TStringList.Create;
  try
    TempList := TStringList.Create;
    try
      Temp.LoadFromFile('training.txt');
      for i := 0 to Temp.Count - 1 do begin
        TempList.CommaText := Temp[i];
        Memo1.Lines.AddStrings(TempList);
      end;
    finally
      TempList.Free;
    end;
  finally
    Temp.Free;
  end;