如何使用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;