procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
i:integer;
begin
a:='abc,efg,hij,,,,';
while pos(',',a)<>0 do begin
i:=pos(',',a);
delete(a,i,1);
end;
showmessage(a);
end;
var a,b:string;
i:integer;
begin
a:='abc,efg,hij,,,,';
while pos(',',a)<>0 do begin
i:=pos(',',a);
delete(a,i,1);
end;
showmessage(a);
end;
vb来自于microsoft公司;
delphi诞生在borland公司!!!
哈哈哈!!!
a :string;
b :=procedure ();stdcall;(好像是这样的)
请高手指正