请教一个问题,41分全送,本人只有这么多分了(41分)

  • 主题发起人 主题发起人 whsky
  • 开始时间 开始时间
W

whsky

Unregistered / Unconfirmed
GUEST, unregistred user!
请问,在DELPHI中有没有像JAVA中的StringTokenizer这样的函数,谢了
 
给你一段代码参考。
我觉得挺好的就留下了,是别人的演示代码。
procedure TForm1.Button1Click(Sender: TObject);
var strs:tstrings;
str:string;
begin
str:='aa bb cc';
strs:=tstringlist.Create;
strs.Delimiter:=' ';
strs.DelimitedText:=str;
edit1.Text:=strs[0];
edit2.Text:=strs[1];
edit3.Text:=strs[2];
freeandnil(strs);
end;
 
谢谢了,好东东,我自己搞出来了,不过没这个好,我是用的一个循环遍历,谢谢了
 
后退
顶部