delphi XE 泛型数组和SplitString处理数据

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;

另外一个用法，也可以达到上面的效果：

Edit1.Text:='55-128-1244-10520';

ListBox1.Items.CommaText := StringReplace(Edit1.Text, '-', ',', [rfReplaceAll]);

推荐分享