var tem:string;
filehandle,len:integer;
begin
if opendialog1.Execute then
begin
strfile:=opendialog1.FileName;
if not fileexists(opendialog1.FileName) then
begin
len:=length(strfile);
tem:=copy(strfile,len-3,4);
if tem<>'.txt' then
strfile:=strfile+'.txt';
filehandle:=filecreate(strfile);//创建新文件
fileclose(filehandle);
end;
end
end;
filehandle,len:integer;
begin
if opendialog1.Execute then
begin
strfile:=opendialog1.FileName;
if not fileexists(opendialog1.FileName) then
begin
len:=length(strfile);
tem:=copy(strfile,len-3,4);
if tem<>'.txt' then
strfile:=strfile+'.txt';
filehandle:=filecreate(strfile);//创建新文件
fileclose(filehandle);
end;
end
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货