3 Dimensionale Array of Word Speichern Und Laden?

[Hallo_Thomas]

Irgenwie habsch noch nie wirklich nenn Plan, und dass ist doch bestimmt verkehrt

Delphi-Quellcode:

procedure TForm1.Speichern2Click(Sender: TObject);
begin
  with SaveDialog1 do
  begin
    Filter := 'Textdateien (*.TXT)|*.TXT';
    FileName := 'Firmenbrief.txt';
    DefaultExt := 'TXT';
    Options := [ofOverwritePrompt];     // Sicherheitsabfrage beim Überschreiben
    if Execute then
    begin
      ArraySave3(Check,Filename);
    end;
  end;
end;


procedure TForm1.ArraySave3(bda: TIntArray3; fn: TFileName);
begin
  with TFileStream.Create(fn, fmCreate) do
  begin
    WriteBuffer(bda[0], Length(bda));
    Free;
  end;
end;