procedure TForm1.Button1Click(Sender: TObject);
var tmpstr:string;
sl:tstringlist;
begin
tmpstr:='20*30*40*50' ;
sl := TStringList.Create;
try
sl.Add(tmpstr);
sl.Delimiter:='*';
sl.DelimitedText:=sl.Text ;
listbox1.Items:=sl;
self.Caption:=sl.Strings[2];
finally
sl.Free;
end;
end;
//分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List); //第一个参数是分隔符; 第二个参数是开头被忽略的字符 ShowMessage(List.Text); //about //delphi //pascal //programming List.Free;