delphi Split 方法使用

procedure Split(const Text: string; Delimiter: Char; List: TStrings);

var Start, Index: Integer;

begin

List.BeginUpdate;

try

Start := 1;

for Index := 1 to Length(Text) do

if Text[Index] = Delimiter then

begin

List.Add(Copy(Text, Start, Index - Start));

Start := Index + 1;

end;

if Start <= Length(Text) then

List.Add(Copy(Text, Start, Length(Text) - Start + 1));

finally

List.EndUpdate;

end

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Split('123,456,789',',',Memo1.Lines);

Split('111,222,333',',',Memo1.Lines);

end;

推荐分享