Указатели

← →
Elast (2005-02-11 12:48) [0]

Добрый день! Я хочу в Tag записать ссылку на строку и прочитать ее
var sz : string;
ss : string;
begin
ss := "aaaaaaaaa";
Edit1.Tag := Integer(ss);
sz := Ptr(Edit1.Tag); !!!!!
но несовместимость типов. Как побороть?

← →
Ega23 © (2005-02-11 12:54) [1]

Боюсь, не получится...

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) [2]

> Elast (11.02.05 12:48)

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

sz := String(Edit1.Tag)

← →
Ega23 © (2005-02-11 12:55) [3]

Можно по-другому:
Создай экземпляр TStringList, а в св-во Tag компонента пиши ItemIndex листа...

← →
Чапаев © (2005-02-11 12:58) [4]

Имхо тут для PChar самое место.

← →
ЮЮ © (2005-02-11 13:01) [5]

У TEdit есть Text и Hint. Никакие другие String-и ему не нужны !!! :)

> Ega23 © (11.02.05 12:54) [1]

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

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

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);

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

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

Указатели Найти похожие ветки