strfile:=ExtractFilePath(ParamStr(0))+'MyFile.txt';
strfile:= 'C:\MyFile.txt';
assignfile(F,strfile);
if Not FileExists(strfile) then
begin
ReWrite(F);
end
else
Reset(F);
CloseFile(F);
strfile:= 'C:\MyFile.txt';
assignfile(F,strfile);
if Not FileExists(strfile) then
begin
ReWrite(F);
end
else
Reset(F);
CloseFile(F);
F:textfile;
strfile:string;
strfile1:Integer;
begin
strfile:=ExtractFilePath(ParamStr(0))+'MyFile.txt';
if Not FileExists(strfile) then
begin
strfile1:=FileCreate(strfile);
fileclose(strfile1);
end;
assignfile(F,strfile);
ReWrite(F);
end;
调试通过,给分吧,哈哈