Cardinal und TFileName

[omata]

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