Witam *
Mam taką "wariacką" strukturę:
procedure TForm1.Button1Click(Sender: TObject);
Type
RekordJeden = Record
Tekst1: AnsiString; {nie jest znana długość tekstu}
Tekst2: AnsiString; {nie jest znana długość tekstu}
Ilosc: Cardinal; {tu jest wszystko jasne}
Tablica: Array of AnsiString; {nie jest znana wielkość tablicy i długość poszczególnych stringów}
End;
Type
RekordDwa = Record
Napis1: AnsiString; {nie jest znana długość tekstu}
Napis2: AnsiString; {nie jest znana długość tekstu}
Cena: Integer; {tu jest wszystko jasne}
Tabela: Array of AnsiString; {nie jest znana wielkość tablicy i długość poszczególnych stringów}
End;
Type
RekordCaly = Record
Moje1: RekordJeden;
Moje2: RekordDwa;
End;
var
Dane: RekordCaly;
begin
Dane.Moje1.Tekst1:='TekstPierwszy';
Dane.Moje1.Tekst2:='TekstDrugi';
Dane.Moje1.Ilosc:=1234567890;
SetLength(Dane.Moje1.Tablica,2); {dynamiczne zdefiniowanie wielkości tablicy}
Dane.Moje1.Tablica[0]:='PIERWSZY element tablicy';
Dane.Moje1.Tablica[1]:='DRUGI element tablicy';
Dane.Moje2.Napis1:='Napis pierwszy';
Dane.Moje2.Napis2:='Napis drugi';
Dane.Moje2.Cena:=234;
SetLength(Dane.Moje2.Tabela,3); {dynamiczne zdefiniowanie wielkości tablicy}
Dane.Moje2.Tabela[0]:='Pierwsza linia tabeli';
Dane.Moje2.Tabela[1]:='Druga linia tabeli';
Dane.Moje2.Tabela[2]:='Trzecia linia tabeli';
end;
Niestety próba standardowego zapisu rekordu do pliku z wykorzystaniem "file of RekordCaly" nie działa - pojawia się komunikat:
"[DCC Error] Unit1.pas(51): E2155 Type 'RekordCaly' needs finalization - not allowed in file type"
Czy ktoś z Szanownych Grupowiczów (programistów) ma może jakiś "patent", jak taką strukturę (rekord) zapisać do pliku?
Dziękuję bardzo
Pozdrawiam
HamsterJack