Was ist GetFileSize?
Versuch mal: fsize:=FileSize(f);
FileSize will das Dateihandle haben.
Versuch mal übersichtlicher einzurücken und den Befehl exit zuvermeiden.
Delphi-Quellcode:
begin
if OpenDialog1.Execute then begin
try
assignfile(f, OpenDialog1.FileName);
reset(f, 1);
fsize:=FileSize(f);
blockread(f, c, fsize);
for k:=1 to fsize do
c[k]:=chr(ord(c[k]) xor 123);
finally
closefile(f);
end;
try
assignfile(f, OpenDialog1.FileName+'.txt');
rewrite(f, 1);
blockwrite(f, c, fsize);
finally
closefile(f);
end;
memo1.lines.LoadFromFile(OpenDialog1.FileName);
end;
end;
Gruss
Thorsten