如何使用parsedelimeter在Delphi

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;