16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
theStringList : Tstringlist;
ruanjian:string;
jichuang:string;
begin
s:='';
ruanjian:='02';
jichuang:='04';
theStringList:=Tstringlist.Create;
s:='软件'+ruanjian;
s:=s+' '+'机床'+jichuang;
theStringList.add(copy(s,1,length(s)-1));
theStringList.savetofile(extractfilepath(application.ExeName)+'Record1.dat');
showmessage('OK');
end;