| PATRIOT |
| Отправлено: 07.02.2006, 03:55 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 17
|
Имеется код:
| CODE |
TStringList *HFList=new TStringList;
HFList->Add(s);
HFList->AddStrings(Tree[i].Comment);
HFList->Add("||End of note|| !@#$%^&*()_+||Start of note||");
HFList->SaveToFile("Tree.txt");
|
при этом
s="0/tSites";
Tree[i].Comment="3432";
если посмотреть Evaluate/Modify, то HFList равен тому, чему должен, но при выполнении последней комманды получаем файл:
Отредактировано PATRIOT — 07/02/2006, 03:58 |
|
| AVC |
| Отправлено: 07.02.2006, 09:09 |
|
Ветеран
Группа: Модератор
Сообщений: 1583
|
Работает адекватно
| CODE |
TStringList *HFList=new TStringList;
try {
HFList->Add("ssssss");
HFList->AddStrings(Memo1->Lines);
HFList->Add("||End of note|| !@#$%^&*()_+||Start of note||");
HFList->SaveToFile(ExtractFilePath(Application->ExeName) + "Tree.txt");
}
__finally { delete HFList; }
Memo1->Lines->LoadFromFile(ExtractFilePath(Application->ExeName) + "Tree.txt");
|
Tree[i].Comment приводимо к TStrings? |
|
| PATRIOT |
| Отправлено: 08.02.2006, 11:52 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 17
|
TStringList* Tree[i].Comment;
главный прикол. Этот же текст в другом модуле
этого проекта работает без проблем.
|
|
