var
TemTxt: TextFile;
TemName: string;
i: Integer;
begin
TemName := ‘tongji.txt’;
TemName := ExtractFilePath(ParamStr(0)) + TemName;
if not FileExists(TemName) then
begin
AssignFile(TemTxt, TemName);
Rewrite(TemTxt);
for I := 0 to TemString.Count - 1 do
begin
Writeln(TemTxt, TemString[i]);
end;
CloseFile(TemTxt);
end;
end;