Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как хранить в памяти несколько TStrings??? 
V
    Опции темы
padla
Дата 14.8.2006, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 25.6.2006
Где: Москва

Репутация: нет
Всего: нет



Моя проблема:
есть TreeView и RichEdit. Мне нужно для каждого элемента TreeNode хранить RichEdit.Lines, и соответственно загружать при щелчке на ноде.

Я так прикинул - выделяем в куче память, кидаем в нее содержимое RichEdit.Lines, ссылку на данные в куче кидаем в TreeNode.Data. Казалось бы все просто, но не получается это реализовать.

Уважаемые гуру, помогите пожалуйста!
PM MAIL ICQ   Вверх
dvamaster
Дата 14.8.2006, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10



Код

...
TStrings(TreeNode.Data) := RichEdit.Lines;
...
RichEdit.Lines := TStrings(TreeNode.Data);
...


Добавлено @ 09:56 
Не забывай потом ручками почистить все TStrings(TreeNode.Data)

Код

  TStrings(TreeNode.Data).Destroy;


Для всех TreeNode

Это сообщение отредактировал(а) dvamaster - 14.8.2006, 09:54


--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
Snowy
Дата 14.8.2006, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



dvamaster, нет, так неправильно.
PM MAIL   Вверх
ivashkanet
Дата 14.8.2006, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: нет
Всего: 149



Snowy, а чё так? smile
Извините что леузу не в свой монастырь.
Но строки, обычно, не ссылочный тип данных. И получить ссылку на конкретню строку не получится.
(Если не пользоваться именно !ссылками!)
При выполнении кода newString = oldString создается новый экземпляр строки и в него копируется все данные из строки oldString. По этому это будут разные строки smile 
P.S. Это так в .Net  smile Как у вас я точно не знаю, но должно быть так smile
P.P.S. Если я СОВСЕМ не прав, то сильно меня не ругайте, а считайте пост за офтопп. (Но ситуация описанная в первом посте очень смахивает на эту smile )
PM MAIL WWW ICQ   Вверх
Snowy
Дата 14.8.2006, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



В том то и дело, что нужно запоминать строку, а не ссылку на неё.
Иначе при чистке рича, накроются и данные.

Добавлено @ 10:19 
Вот так мы запомним данные, а не ссылку:
Код

var
  p: PString;
begin
  New(p); p^ := RichEdit.Lines.Text;
  TreeNode.Data := p;
end;

...

RichEdit.Lines.Text := PString(TreeNode.Data)^;

PM MAIL   Вверх
Fedia
Дата 14.8.2006, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13



ivashkanet
Цитата(ivashkanet @  14.8.2006,  10:11 Найти цитируемый пост)
newString = oldString

newString := oldString; в Delphi в этом случае указатель на строку oldString создается. Это не .Net smile


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
padla
Дата 14.8.2006, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 25.6.2006
Где: Москва

Репутация: нет
Всего: нет



Хм... У меня появилась еще одна мысль:
а если сопоставить дереву TreeView дерево XML???

Думаю прокатит.... и не так критично к памяти.
PM MAIL ICQ   Вверх
ivashkanet
Дата 14.8.2006, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: нет
Всего: 149



Цитата(Fedia @  14.8.2006,  10:27 Найти цитируемый пост)
в Delphi в этом случае указатель на строку oldString создается. Это не .Net 

Я ж не против  smile 
Просто хотел помочь  smile
Жалко что не получилось  smile 
PM MAIL WWW ICQ   Вверх
Snowy
Дата 14.8.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Цитата(Fedia @  14.8.2006,  10:27 Найти цитируемый пост)
newString := oldString; в Delphi в этом случае указатель на строку oldString создается. Это не .Net
С чего вдруг? Строка полностью копируется.
PM MAIL   Вверх
Fedia
Дата 14.8.2006, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13



Цитата(Snowy @  14.8.2006,  10:59 Найти цитируемый пост)
Цитата(Fedia @  14.8.2006,  10:27 )    
newString := oldString; в Delphi в этом случае указатель на строку oldString создается. Это не .Net    
С чего вдруг? Строка полностью копируется.

По данным литературы, которой я на данным момент располагаю, в этом случае увеличивается счетчик ссылок строки oldString.
Код

procedure TConvertDBGridDemoMainForm.Button1Click(Sender: TObject);
var
  s: string;
begin
  s:='test'; //выделяется память, необходимая для размещения строки
  s:=OldString; //увеличивается счетчик ссылок строки OldString
  //предпологается что строка OldString уже имеет значение
  SetLength(s, 4); //выделяется память
end;

Цитата(ivashkanet @  14.8.2006,  10:47 Найти цитируемый пост)
Просто хотел помочь

Меньше всего в этом сомневался smile Сейчас меня побьют за оффтоп  smile  


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Snowy
Дата 14.8.2006, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Fedia, Глядя на этот пример, создаётся впечатление о том, что это контекст описания работы внутренней реализации.
Потому что сам по себе кусок - полный бред.
А внутренняя реализация - это совершенно другой вопрос. То как дельфи оптимизирует наши действия - не должно нас беспокоить.
Сейчас мы говорим про логику построения списка.
PM MAIL   Вверх
dvamaster
Дата 14.8.2006, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10



Цитата(dvamaster @  14.8.2006,  12:53 Найти цитируемый пост)
...
TStrings(TreeNode.Data) := RichEdit.Lines;
...
RichEdit.Lines := TStrings(TreeNode.Data);
...


Snowy, зато работает

Добавлено @ 11:35 
Так TObject есть указатель, а он размерностью с Pointer, что и есть Data

Добавлено @ 11:35 
Сам понимаю, что это не красиво, но помогает


--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 14.8.2006, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Цитата(Fedia @  14.8.2006,  11:15 Найти цитируемый пост)
По данным литературы, которой я на данным момент располагаю, в этом случае увеличивается счетчик ссылок строки oldString.

Совершенно верно, но в случае удаления исходной строки, предварительно делается копия для каждой ссылки.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Fedia
Дата 14.8.2006, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13



Да, копируется. Сейчас проверил. В этом примере выдается сообщение: "test1".
Код

var
  s1, s2: string;
begin
  s1:='test1';
  s2:=s1;
  SetLength(s1, Length(s1)-1);
  ShowMessage(s2);
end;
 
Хех. А ведь я был почти уверен в своей правоте !


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Snowy
Дата 14.8.2006, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



dvamaster, я ж говорю - это указатель.
А нужно строку хранить, а не указатель.
Если использовать указатель на RichEdit.Lines, то при чистке рича почистится и по указателю.
А смысл в том, что рич один. А узлов с данными много. И в каждый должен попасть разный текст, а не один и тот же указатель на рич.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0942 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.