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]