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