TFileStream & Dateien beliebiger Größe

[Kryoko]

Hallo !

z.Z. benutzte ich noch den TFileStream um Dateien beliebiger Größen zu erstellen, nur
dauert es bei Dateien die größer als 16 Mb sein soll sehr lange.
Gibt es da noch schnellere Methoden ??

Delphi-Quellcode:

   
   while ( fFileStream.Size < (fSize * 1000) ) do
          fFileStream.Write(fBuffer, fSize);

[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

[Headi]

cooler code!!

funktioniert viel schneller als der vorher!

habe vorher "TextFile" benutzt. :lol:

danke

mfg headi