Thema: Delphi Arbeitsspeicher leeren

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Arbeitsspeicher leeren

  Alt 19. Aug 2003, 12:55
Das steht in der Delphi-Hilfe:

Zitat:
Im folgenden Beispiel wird eine Datei TEST.TXT geöffnet und komplett in einen dynamischen Puffer geladen. Der Puffer und die Dateigröße werden dann an eine Routine übergeben, die den Text verarbeitet. Am Schluß wird der Puffer freigegeben und die Datei geschlossen.

Delphi-Quellcode:
var
  F: file;
  Size: Integer;
  Buffer: PChar;
begin
  AssignFile(F, 'test.txt');
  Reset(F, 1);
  try
    Size := FileSize(F);
    GetMem(Buffer, Size);
    try
      BlockRead(F, Buffer^, Size);
      ProcessFile(Buffer, Size);
    finally
      FreeMem(Buffer);
    end;
  finally
    CloseFile(F);
  end;
end;
Ich hoffe, ich darf das zittieren, wegen Copyright und so.

Gruß Matze

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]
  Mit Zitat antworten Zitat