W whsky Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-07 #1 请问,在DELPHI中有没有像JAVA中的StringTokenizer这样的函数,谢了
Z zywcd Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-07 #2 给你一段代码参考。 我觉得挺好的就留下了,是别人的演示代码。 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;
给你一段代码参考。 我觉得挺好的就留下了,是别人的演示代码。 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;
W whsky Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-08 #3 谢谢了,好东东,我自己搞出来了,不过没这个好,我是用的一个循环遍历,谢谢了