Скачать: CL | DM;

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

← →
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-и ему не нужны !!! :)

---

← →
begin...end ©   (2005-02-11 13:05) [6]

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

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

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

---

← →
Alexander Panov ©   (2005-02-11 13:07) [7]

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


---

← →
Ega23 ©   (2005-02-11 13:13) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c