delphi学习点滴(五)

1.TStringList分解字符串

在编程中我们经常需要分解某个字符串，比如“abc,123,334,akl”，把上述字符串根据逗号分解成4个字符串。

procedure TForm1.btnTestClick(Sender: TObject);
var
  v_TestList: TStringList;
  v_Index: Integer;
begin
  v_TestList := TStringList.Create;
  try
    {采用CommaText}
    v_TestList.CommaText := 'abc,123,334,akl';
    {采用Delimiter & DelimitedText,可以根据需要调整Delimiter，应用比较灵活
    v_TestList.Delimiter := ',';
    v_TestList.DelimitedText := 'abc,123,334,akl';}
     for v_Index := 0 to v_TestList.Count - 1 do
     begin
       ShowMessage(v_TestList[v_Index]);
     end;
  finally
    FreeAndNil(v_TestList);
  end;
end;

 

<