如何在delphi中拆分字符串

Question

我只需要將一個字符串如："STANS", "Payment, chk#1", ,1210.000拆分爲基於,的數組。在字符串列表中的結果將是

STANS 
Payment, chk#1 

1210.000 

Answer 1

創建TStringList並分配逗號分隔字符串StringList.CommaText。這將解析您的輸入並將拆分字符串作爲字符串列表的項目返回。

StringList.CommaText := '"STANS", "Payment, chk# 1", ,1210.000'; 
//StringList[0]='STANS' 
//StringList[1]='Payment, chk# 1' 
//etc. 

Answer 2

我寫了這個功能和完美的作品，我在2007年德爾福

function ParseCSV(const S: string; ADelimiter: Char = ','; AQuoteChar: Char = '"'): TStrings; 
type 
    TState = (sNone, sBegin, sEnd); 
var 
    I: Integer; 
    state: TState; 
    token: string; 

    procedure AddToResult; 
    begin 
     if (token <> '') and (token[1] = AQuoteChar) then 
     begin 
     Delete(token, 1, 1); 
     Delete(token, Length(token), 1); 
     end; 
     Result.Add(token); 
     token := ''; 
    end; 

begin 
    Result := TstringList.Create; 
    state := sNone; 
    token := ''; 
    I := 1; 
    while I <= Length(S) do 
    begin 
    case state of 
     sNone: 
     begin 
      if S[I] = ADelimiter then 
      begin 
      token := ''; 
      AddToResult; 
      Inc(I); 
      Continue; 
      end; 

      state := sBegin; 
     end; 
     sBegin: 
     begin 
      if S[I] = ADelimiter then 
      if (token <> '') and (token[1] <> AQuoteChar) then 
      begin 
       state := sEnd; 
       Continue; 
      end; 

      if S[I] = AQuoteChar then 
      if (I = Length(S)) or (S[I + 1] = ADelimiter) then 
       state := sEnd; 
     end; 
     sEnd: 
     begin 
      state := sNone; 
      AddToResult; 
      Inc(I); 
      Continue; 
     end; 
    end; 
    token := token + S[I]; 
    Inc(I); 
    end; 
    if token <> '' then 
    AddToResult; 
    if S[Length(S)] = ADelimiter then 
    AddToResult 
end;