Datei schreiben mit Beliebieger größe ?

[fadz]

ups stimme lool
sry


hab das immomment so gelöst *GG*

Delphi-Quellcode:

var FileStream: TFileStream;
    Buffer: array[0..1024] of Byte;
    SizeOfBuffer: integer;
    i:integer;
begin
SizeOfBuffer := 1024;
FileStream:= tfilestream.Create('L:\test\muh.txt',fmCreate or fmOpenWrite);
for i:=1 to 5 do begin
 FileStream.write(Buffer, SizeOfBuffer);
 end;
filestream.free;
end;

das sollte ja eignetlich so fürs erste gehen
wenn man die 5 durch einen 2. integer ersetzt diesen mit der prozedur genau wie die zieldatei mitgibt, ist es möglich eine prozedur zu schreiben, welche belieblig lange dateien (auf das kb genau) schreibt

ist doch mal was


DANKE LUCKIE FÜR DEINE WIE IMMER GUTE UND SCHNELLE HILFE