TFileStream & Dateien beliebiger Größe

[marabu]

Hallo,

probiere es so:

Delphi-Quellcode:

var
  fs: TFileStream;

begin
  fs := TFileStream.Create(YourFileName, fmCreate or fmShareExclusive);
  fs.Size := YourFileSize;
  fs.Free;
end;

Grüße vom marabu