php中的explode函数很方便,能将“a,b,c”或“a/b/c”中被格开的字符单独提取出来,不知道Delphi中有无类似的函数?
解决方案 »
- 用delphi实现甘特图
- 散1000分,第二个
- quickreport,adotable,设计时预览可以但是运行时调用QuickRep1.Preview出错:Invalid variant type conversion
- 超级怪的问题?
- HTML页面在delphi中实现
- >>>>>如何让计算机发出特定的报警声<<<<<<<
- TDBNavigator的Post按钮和Refresh按钮的作用与区别?
- 500分悬赏!我被lop.com害苦了谁能彻底解决?参与有分。
- 关于图像处理的老问题
- image字段如何人保存?
- TStringlist,Tlist及Tstrings的区别?
- 一个难题(与ORACLE有关的),只有30分了,希望大虾们不要嫌少啊!
var Index: Integer;
begin
Result:= '';
while True do
begin
Index:= Pos(SprStr, SrcStr);
if Index = 0 then
begin
Result:= Result + SrcStr;
Break;
end;
Result:=Result + Copy(SrcStr, 1, Index - 1);
SrcStr:= Copy(SrcStr, Index + Length(SprStr), Length(SrcStr));
end;
end;procedure TForm1.A1Click(Sender: TObject);
begin
Edit2.Text:= GetString(Edit1.Text, ',');
end;