Delphi Dateien erstellen

Thema durchsuchen

Ansicht

Themen-Optionen

Dateien erstellen

Ein Thema von Meflin · begonnen am 3. Sep 2003 · letzter Beitrag vom 11. Sep 2003

Antwort

kasi

Registriert seit: 18. Aug 2003
10 Beiträge

Delphi 5 Enterprise

Re: Dateien erstellen

3. Sep 2003, 20:24

LongInt ist 32 Bit mit Vorzeichen also 2 GB

Wenn größer sein muß

markieren

Code:

			procedure DoCreateFile2(Filename: string; Size: Int64);

var

  FS: TFileStream;

begin

FS := TFileStream.Create(Filename, fmCreate);

try

  FileSeek(FS.Handle, Size, 0);

  Win32Check(SetEndOfFile(FS.Handle));

finally

  FS.Free;

end;

end;

So ist THandleStream.setSize auch implementiert

Aufruf (10 GB )

markieren

Code:

DoCreateFile2(Application.ExeName+'.test', Int64(1024*1024*1024)*10);

KASI