Forum: Sonstige Fragen zu Delphi
Delphi
by Wormid,
11. Sep 2003
Jau, da wird in die Datei gschrieben... Und zwar der Inhalt von "buf" mit der Länge "BytesPerBlock".
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...
Forum: Sonstige Fragen zu Delphi
Delphi
by Wormid,
3. Sep 2003
@Chewie: Stimmt sogar... das mit der beliebigen Größe war mir nicht bewußt. Allergings könte man ja auch SetLength mit der endgültigen Größe des Strings füttern und den dann nur einmal wegschreiben. Ist aber nicht empfehlenswert bei einer gewünschten Länge von über 10 MB oder so. :freak:
Forum: Sonstige Fragen zu Delphi
Delphi
by Wormid,
3. Sep 2003
Obwohl die Frage eigentlich beantwortet ist: Warum so umständlich mit Streams und Konsorten?
procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
S: String;
i: Integer;
begin
AssignFile(F, 'C:\test.txt');
Rewrite(F);
// Man kann da auch mit andern Werten spielen... Aber