Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Указатели [D6, Win95/98]

Elast © (2005-02-11 12:48:00)
Добрый день! Я хочу в Tag записать ссылку на строку и прочитать ее
var sz : string;
ss : string;
begin
ss := 'aaaaaaaaa';
Edit1.Tag := Integer(ss);
sz := Ptr(Edit1.Tag); !!!!!
но несовместимость типов. Как побороть?

Ega23 (2005-02-11 13:13:00) [1]
У TTreeNode нет свойства Tag. TTreeNode не является потомком TComponent.

Ну промахнулся... Бывает... :о)

Alexander Panov (2005-02-11 13:07:00) [2]
Elast (11.02.05 12:48)

Для того, чтобы в некоторый момент времени прочитать строку, на которую сохранена ссылка, она(строка) должна в этот момент существовать, а в примере ss - локальная переменная, которая после выхода из процедуры существовать перестанет, т.е. в данном случае строка будет доступна только внутри этой процедуры.

var ss,sz: String; begin ss := 'ssssssss'; Edit1.Tag := Integer(PChar(ss)); sz := PChar(Edit1.Tag); ShowMessage(sz);

begin...end (2005-02-11 13:05:00) [3]
> Ega23 © (11.02.05 12:54) [1]

> У некоторых классов (например TTreeNode) кроме
> свойства Tagесть свойство Data

У TTreeNode нет свойства Tag. TTreeNode не является потомком TComponent.

ЮЮ (2005-02-11 13:01:00) [4]
У TEdit есть Text и Hint. Никакие другие String-и ему не нужны !!! :)

Чапаев (2005-02-11 12:58:00) [5]
Имхо тут для PChar самое место.

Ega23 (2005-02-11 12:55:00) [6]
Можно по-другому:
Создай экземпляр TStringList, а в св-во Tag компонента пиши ItemIndex листа...

Ega23 (2005-02-11 12:54:00) [7]
Боюсь, не получится...

Tag какого компонента ты используешь? У некоторых классов (например TTreeNode) кроме свойства Tag есть свойство Data:

TTreeNode.Data Points to application-defined data associated with the tree node. property Data: Pointer; Description Use the Data property to associate data with a tree node. Data allows applications to quickly access information about the entity represented by the node.

begin...end (2005-02-11 12:54:00) [8]
> Elast (11.02.05 12:48)

> sz := Ptr(Edit1.Tag); !!!!!

sz := String(Edit1.Tag)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »