编程论坛 → Delphi论坛

急求一个delphi字符拆分函数......

nixianli 发布于 2005-07-01 15:22， 956 次点击

急求一个delphi字符拆分函数，例如：“12;34;65;870;200”,根据“;”分为：12、34、65、870、200的5个数；：“200,30,67,800”,根据“,”分为：200、30、67、800的4个数。

2 回复

zhangzujin2005-07-02 23:46

没什么函数，自己编程吧．

remotezhang2005-07-25 17:22

var strs :TStrings; constr:='12;34;65;870;200'; strs := TStringList.Create; strs.Delimiter := ';'; strs.DelimitedText := constr; for i := 0 to Strs.Count-1 do ShowMessage(Strs[i]); 就能得到你要的我有个问题，如何从一个文件读取一个字符，并判断这个字符是否是换行符？？？