暴风的专栏

function cov(str:string):string;var ss:string;begin if str= then  result:=; ss:=; while pos(,,str)>0 do begin  ss:=ss+,"+copy(str,1,pos(,,str)-1)+";  delete(str,1,pos(,,str)); end;  ss

1.請參考[url]http://delphi.ktop.com.tw/topic.php?TOPIC_ID=65150[/url]2.procedure TForm1.Button2Click(Sender: TObject);var    ex, ws: Variant;    SrcFile,TgtFile : String;begin    SrcFile := C:/Temp/Te