DELPHI-如何使用TStringList分割字符串

对于字符串拆分,可以使用TStringList类。


var
  i : integer;
  sResult : string;
  pSplit : TStringList;
begin
  pSplit := TStringList.Create;
  try    { define delimiter }pSplit.Delimiter := ';';    { - split it }

    pSplit.Clear;    pSplit.DelimitedText := 'This;is;a;list';    { - list it }

    sResult := '';
    for i := 0 to pSplit.Count - 1  do
      begin
        sResult := sResult + pSplit[i] + #13;
      end;

    ShowMessage( sResult );

  finally
    pSplit.Free;
  end;



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678