Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
29. Apr 2006
Du solltest das Stream-Objekt natürlich auch erzeugen. :wink:
procedure TForm1.Speichern2Click(Sender: TObject);
var Stream:TStream;
i,j,size:Integer;
begin
with SaveDialog1 do
begin
Filter := 'Textdateien (*.TXT)|*.TXT';
Forum: Object-Pascal / Delphi-Language
Delphi
by Hawkeye219,
29. Apr 2006
Es ist sicherlich sinnvoll, einen Header mit den Dimensionen an den Anfang der Datei zu schreiben. Man sollte aber auf keinen Fall den kompletten Inhalt des Arrays als einen Datenblock speichern, weil nicht alle Daten sequentiell im Speicher abgelegt sein müssen. Also bleibt nur die folgende Möglichkeit:
Size := Length(Check) * SizeOf(Word);
for i := 0 to High(Check) do
for j := 0 to...