Hallo ,
So sollte es etwas sinnvoller sein:
Delphi-Quellcode:
var
Myfile : file of integer;
Nr: integer ;
FN : string ;
begin
/..............
begin
AssignFile(MyFile,FN);
{$I-}
if FileExists(FN)then
Reset(MyFile)
else
Rewrite(MyFile);
{$I+}
if IOResult=0 then
begin
System.Seek(MyFile,Filesize(MyFile))
Write(MyFile,z1);
end;
CloseFile(MyFile);
end;
/................
Gruß
K-H
edit: verlesen,und geschlampt