Thema: Delphi Dateien erstellen

Einzelnen Beitrag anzeigen

Benutzerbild von Wormid
Wormid

Registriert seit: 26. Aug 2003
Ort: Steinfurt
292 Beiträge
 
Delphi XE2 Professional
 
#34

Re: Dateien erstellen

  Alt 11. Sep 2003, 14:30
Zitat:
F.Write(buf, BytesPerBlock); // hier wird in die datei geschreiben ???
Jau, da wird in die Datei gschrieben... Und zwar der Inhalt von "buf" mit der Länge "BytesPerBlock".

Zitat:
Inc(wrBytes, BytesPerBlock); // was wird hier gemacht ???
Hier wird die Variable "wrBytes" um "BytesPerBlock" erhöht (incrementiert). Alternativ könnte man schreiben "wrBytes := wrBytes + BytesPerBlock". Inc ist aber eleganter und der Assemblercode dahinter ist angeblich auch besser optimiert... Die Variable wrBytes hält also fest, wieviele Bytes bisher in die Datei geschrieben wurden.

Zitat:
if wrBytes + BytesPerBlock < Size then F.Write(buf, Size - wrBytes); // und was wird dann hier gemacht ???
Ich denke, die Zeile soll dafür gut sein, den Rest in die Datei zu schreiben, bis sie die Größe "Size" erreicht hat, falls das innerhalb der Schleife nicht glatt aufging. Allerdings bin ich mir so in der Form nicht sicher, ob das korrekt ist... Müsste es nicht "if wrBytes + BytesPerBlock > Size then ..." heißen?

Gruß

Wormid
Debuggers don't remove Bugs, they only show them in Slow-Motion.
  Mit Zitat antworten Zitat