type
TStruktura1 : record
NekiString : String[20];
NekiBroj : Integer;
end;
var
SFile : File of TStruktura1;
str1 : TStruktura1;
begin
AssignFile(SFile, 'C:\test.dat');
Rewrite(SFile);
Write(SFile, str1);
CloseFile(SFile);
end.
^^ Ovaj kod radi ok. E sad, meni treba da mogu da zapisem dve ili vise _razlicitih_ struktura u jedan fajl i da to posle normalno iscitam. Recimo imam TStruktura1 i TStruktura2 i da mogu da zapisem obe strukture u jedan fajl. Moze li ovo ikako da se odradi ?