Подскажите пожалуйста как сохранить TStringList в составе record в файл? Знаю что нужно использовать TStream но не как не могу разобраться как с ним работать. Вот эти данные нужно записать в файл, а потом считать.
Код:
TTest = record
TVopros : TStringList;
TVopr1 : TStringList;
TVopr2 : TStringList;
TVopr3 : TStringList;
TVopr4 : TStringList;
TVopr5 : TStringList;
TVopr6 : TStringList;
PicName :string[100];
TOtv1 : Boolean;
TOtv2 : Boolean;
TOtv3 : Boolean;
TOtv4 : Boolean;
TOtv5 : Boolean;
TOtv6 : Boolean;
end;
TFileTest = record
TKolVopr : Byte;
TKolZadVopr: Byte;
TPredmet : String[30];
RecordTest : array[1..100] of TTest;
min:Integer;
ProvVrem:Boolean;
end;