Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-08-24

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

   2005-08-24 15:56:54 (#422956)

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;

Хороший способ, попробую.

Номер выпуска : 4867
Возраст листа : 703 (дней)
Количество подписчиков : 524
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/422955
Получить правила : 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

   2005-08-24 15:56:00 (#422955)

Re[5]: TStrings in Record

Здравствуйте, Eugene,

ШП>> type
ШП>> TMyRec = class
EtM> .........
ШП>> procedure TForm1.Button1Click(Sender: TObject);
ШП>> var
ШП>> F: file of TMyRec;
ШП>> R: TMyRec;
ШП>> begin

EtM> R:=TMyRec.Create;

ШП>> R.stri := TStringList.Create;
ШП>> R.stri.Add('test');
ШП>> R.SaveToFile('c:\MyFile.dat');
ШП>> R.stri.Free;

EtM> R.Free; //А про это забывать не стоит

Согласен! Хотя можно сделать конструктор и указывать родительский
объект, если есть - пущай сам удаляет.

   2005-08-24 09:24:55 (#422713)