本文整理自网络,侵删。

uses System.StrUtils;
procedure TForm1.Button1Click(Sender: TObject);var Strings: TArray; Numbers: TArray; S: string; I: Integer;begin S:= Edit1.Text; Strings := SplitString(S, '-'); SetLength(Numbers, Length(Strings)); I := 0; for S in Strings do begin Numbers[I] := StrToInt(S); Memo1.Lines.Add(S); Inc(I); end;
end;
另外一个用法,也可以达到上面的效果:Edit1.Text:='55-128-1244-10520'; ListBox1.Items.CommaText := StringReplace(Edit1.Text, '-', ',', [rfReplaceAll]);
相关阅读 >>
Delphi如何把一个文本列表添加到tlistbox并避免重复项
Delphi中的copy,delete,pos和leftstr,rightstr的用法
dbgrid的cellclick事件,单击当前行记录的那一行时,不发生
更多相关阅读请进入《Delphi》频道 >>