Jak zapisać tablice dwu wymiarową do pliku binarnego??

Jak zapisać tablice dwu wymiarową do pliku binarnego??

Hmm, stworzyć plik tej tablicy?

type
  Tablica: array[0..1, 0..1] of byte;

var
  f: file of Tablica;
  t: Tablica;

AssignFile(f, 'costam.txt');
Reset(f);
Write(f, t);
CloseFile(f);

albo jak masz tablice dynamiczne

TType to typ tablicy

var
  f: file of TType;
  i, j: Integer;
begin
  //standardowe otwarcie pliku
  for i := 0 to MaxPierwszyWymiarTablicy do
    for j := 0 to MaxDrugiWymiarTablicy do
      Write(f, Tab[i, j]);
  //zamknięcie pliku
end;