3 Dimensionale Array of Word Speichern Und Laden?

[Hawkeye219]

Du solltest das Stream-Objekt natürlich auch erzeugen.

Delphi-Quellcode:

procedure TForm1.Speichern2Click(Sender: TObject);
var Stream:TStream;
  i,j,size:Integer;
begin
  with SaveDialog1 do
  begin
    Filter := 'Textdateien (*.TXT)|*.TXT';
    FileName := 'Firmenbrief.txt';
    DefaultExt := 'TXT';
    Options := [ofOverwritePrompt];     // Sicherheitsabfrage beim Überschreiben
    if Execute then
    begin
      Stream := TFileStream.Create(Filename, fmCreate);  // <<-- Stream erzeugen
      try
        Size :=Length(Check[0, 0]) * SizeOf(Word);
        for i := 0 to High(Check) do
          for j := 0 to High(Check[0]) do
            Stream.Write (Check[i, j, 0], Size);
      finally
        Stream.Free;  // <<-- Stream freigeben
      end;
    end;
  end;
end;

BTW: glaubst du, daß ".txt" eine gute Erweiterung für eine binäre Datei ist?

Gruß Hawkeye