Fragen über Fragen, als Kommentare im Source
Wäre nett wenn mir das jemand erklären könnte.
Wenn ich damit Dateien erstelle ist die mit irgendwelchen Werten gefüllt, wo kommen die her ?
Code:
var
F: TFileStream;
wrBytes, Size: LongWord;
buf: Byte;
const
BytesPerBlock = 1024;
begin
F := TFileStream.Create('c:\test.txt', fmCreate or fmShareExclusive);
try
buf := 0;
Size := 1024 * 1024;
wrBytes := 0;
while wrBytes + BytesPerBlock <= Size do begin
F.Write(buf, BytesPerBlock); // hier wird in die datei geschreiben ???
Inc(wrBytes, BytesPerBlock); // was wird hier gemacht ???
end;
if wrBytes + BytesPerBlock < Size then F.Write(buf, Size - wrBytes); // und was wird dann hier gemacht ???
finally
F.Free;
end;
end;
danke ...