Zitat von
Cöster:
Wie schreibt man folgenden einen Code, denn ohne direkt auf den Writer zuzugreifen?
Delphi-Quellcode:
procedure Save(const AFileName: string; Figure: Integer);
var
F: TFileStream
W: TWriter;
begin
F := TFileStream.Create('MyFile.dat', fmCreate);
W := TWriter.Create(F, 4000);
W.WriteInteger(Figure);
W.Free;
F.Free;
end;
Na ja, eigentlich schreibst du halt in den Stream:
Delphi-Quellcode:
procedure Save(const AFileName: string; Figure: Integer);
var
F: TFileStream
W: TWriter;
begin
F := TFileStream.Create('MyFile.dat', fmCreate);
try
F.Write(Figure, sizeOf(Figure));
finally
F.Free;
end;
end;
Das try...finally Gebilde ist dabei ein Schutzblock. Da du den Stream öffnest solltest du immer dafür sorgen, dass der (eben auch bei Fehlern) geschlossen wird. Alles was unter finally kommt wird immer ausgeführt (egal ob es Fehler gab oder nicht). In einen Stream ganz du jedes Datum ganz untypisiert schreiben, dabei werden wirklich die rohen Bytes geschrieben. sizeOf gibt dir die Größe eines Datums in Byte an. Das klappt zwar gut für primitive Datentypen (Zahlen, Character) und Records, aber nicht mehr für Strings und dyn. Arrays. Bei diesen musst du die Länge mit der Größe eines Elements multiplizieren (length(x) * sizeOf(x[0])), bei Strings kannst du einfach die Länge nehmen. Schreibst du ein dyn. Array in einen Stream, so musst du dort das erste Element (x[0]) übergeben, nicht nur x (x ist das dyn. Array), bei einem String gilt das Selbe, allerdings ist der Index des ersten Elements im String immer 1 statt 0.
Gruß Der Unwissende