Thema: Delphi Cardinal und TFileName

Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Cardinal und TFileName

  Alt 11. Mär 2007, 20:50
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
  Mit Zitat antworten Zitat