Re[4]: TStrings in Record
>, Шистеров Павел
ШП> Например так:
ШП> type
ШП> TMyRec = class
ШП> stri: TStrings;
ШП> procedure SaveToFile(NameFile:string);
ШП> end;
ШП> procedure TMyRec.SaveToFile(NameFile:string);
ШП> begin
ШП> //А тут реализуешь процедуру сохранения, можешь через потоки, можешь
ШП> по простецки.
ШП> end;
ШП> procedure TForm1.Button1Click(Sender: TObject);
ШП> var
ШП> F: file of TMyRec;
ШП> R: TMyRec;
ШП> begin
ШП> R.stri := TStringList.Create;
ШП> R.stri.Add('test');
ШП> R.SaveToFile('c:\MyFile.dat');
ШП> R.stri.Free;
ШП> end;
Хороший способ, попробую.
Номер выпуска : 4868
Возраст листа : 703 (дней)
Количество подписчиков : 524
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/422956
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru