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

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

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Август 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
11.08.2005
01:26:46
02:08:06
12
13
14
14.08.2005
01:48:47
12:51:00
15
16
17
18
19
20
21
22
23
23.08.2005
14:14:41
21:56:51
24
25
26
27
28
29
30
31
31.08.2005
22:07:09
22:07:29


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

TStrings in Record

Создаю новы тип:

type
TMyRec = record
stri: TStrings;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
F: file of TMyRec;
R: TMyRec;
begin
R.stri := TStringList.Create;
R.stri.Add('test');

AssignFile(F, 'test.dat');
Rewrite(F);
Reset(F);
Write(F, R);

CloseFile(F);

R.stri.Free;
end;

В коде видно что я добавляю строку (test) но в файл она не сохраняется
- почему!?

И с помощью TFileStream тоже нечего не сохраняется!

Знаю что TStringList можно сохранить методом R.stri.SaveToFile то мне
нужно именно TFileStream или переменной файлового типа.

Как сохранить?

*******
{_-|-_}

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

Ответить  
-=BETA TESTER=-
Thu, 18 Aug 2005 13:07:58 +0300 (#419697)

 

Ответы:

Здравствуйте, -=BETA,

1. Ты сохраняешь РЕКОРД, который содержит объект. Пусть в объекте хоть
1000 строк ни одну он не сохранит, должны быть методы сохранения у
самого класса объекта.

Реализовать свой класс с методом сохранения.

Ответить  
Шистеров Павел
Fri, 19 Aug 2005 10:09:01 +0600 (#420030)

 

Как это?

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

Ответить  
-=BETA TESTER=-
Sat, 20 Aug 2005 17:14:10 +0300 (#420749)

 

Здравствуйте, -=BETA,

Например так:

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;

Ответить  
Шистеров Павел
Mon, 22 Aug 2005 08:10:50 +0600 (#421381)

 

Привет Шистеров Павел,

Вы мне письмо написали 22 августа 2005 г. (понедельник), а я Вам отвечу вот что:

.........

R:=TMyRec.Create;

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

Афоризм напоследок: Не переживай о многом, и ты переживешь многих.
Winamp глаголит: Scooter - Coldwater Canyon
23 августа 2005 г. 8:22:24

Просто студент
Eugene mailto:rav***@o*****.ru

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

Ответить  
Eugene the Monster
Tue, 23 Aug 2005 08:23:39 +0400 (#422010)

 

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

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

Ответить  
Шистеров Павел
Wed, 24 Aug 2005 11:22:52 +0600 (#422713)

 

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

Номер выпуска : 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

Ответить  
-=BETA TESTER=-
Wed, 24 Aug 2005 10:34:11 +0300 (#422955)

 

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

Номер выпуска : 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

Ответить  
-=BETA TESTER=-
Wed, 24 Aug 2005 10:34:11 +0300 (#422956)