Zápis struktury či datového typu binárně do souboru – Delphi – Fórum – Programujte.com

 Mám dva možné typy

type TDATE1 = record
  dates: Array[0..2] of Longint;
end;

type TDATE2 = record
  dates: Array[0..7] of Longint;
end;

A nějakou proměnnou var records = Array of TDATE1; či var records = Array of TDATE2;

Každé datum v poli .dates má zaznamenávat kdy bylo dané slovíčko naposled testováno na dané úrovni (je 8 úrovní obtížnosti).

Takže když mám tyto data v records připravená, jak bych je měl uložit do souboru?

Za druhé pokud bych to ještě rozšíšil na:

TYPE TRECORDS1 = record
  items: word;
  records: Array of TDATE1;
end;

TYPE TRECORDS2 = record
  items: word;
  records: Array of TDATE2;
end;
var records1: TRECORDS1;
var records2: TRECORDS2;

Tak abych byl schopen hned ze souboru ze začátku načíst číslo počtu položek, bylo by to fajn.

Bylo by možné sem uvést celé řešení? Pro dephi 7.

Určitě bude existovat nějaká pěkná serializační knihvna, ale nevím teda jak pro D7. Při nejhorším prostě napiš pár funkcí.

Tohle je do texťádku, ale na tom nesejde. 

type TDATE1 = record
  dates: Array[0..2] of Longint;
  procedure save(var f: text);
end;

TYPE TRECORDS1 = record
  items: word;
  records: Array of TDATE1;
  procedure save(var f: text);
end;

procedure TDATE1.save(var f: text);
var
  i: integer;
begin
  for i:=low(dates) to high(dates) do
    writeln(f, dates[i]);
end;

procedure TRECORDS1.save(var f: text);
var
  i: integer;
begin
  writeln(f, items);
  writeln(f, length(records));
  for i:=0 to high(records) do
    records[i].save(f);
end;

var
  f: Text;
...
assignfile(f, 'data.txt');
rewrite(f);
records1.save(f);
closefile(f);

#3 gna
Díky. A jsi si jistý, že by to mělo fungovat i na D7?

Mám chybu: end expected but procedure found

#4 oxidián
no musíš to upravit a dát tam

begin

end.

aby to fungovalo ne ??? .. ježiš ...

Tipuju, že mu vadí procedure v deklaraci toho recordu. Delphi by to mělo umět, ale nevím od jaké verze.

Pokud D7 neumí recordy s metodami, tak to holt napiš jako samostatnou funkci. Nebo místo recordu použij třídu.

Stejně je zvláštní, když v dnešní době někdo řeší ukládání binárních dat. Buď je serializuji, anebo je hodím do databáze. Obojí je výhodnější než vlastní binární formát.