| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Tag

D12 ©   (2008-12-16 12:51:00) 

Можно ли как нибудь записать в Tag два значения. Пытался придумать математически но ничего не выходит. Может Вы мне что-нибудь подскажите.

---

KilkennyCat   (2008-12-16 14:03:00) [1]

Создай наследника и добавь к нему хоть десять тагов.

---

clickmaker   (2008-12-16 13:38:00) [2]

> Корректен ли будет код

смотри реализацию TControl.GetText
такой код бессмысленен

---

Ega23   (2008-12-16 13:31:00) [3]

> А если рассматривать Tag как хранилище строки. Корректен
> ли будет код:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>  Edit1.Tag  := Integer(@AnsiString(edit1.Text)[1]);
>  Edit2.Text := AnsiString(pointer(Edit1.Tag));
> end;


PChar + F1

---

D12   (2008-12-16 13:29:00) [4]

А если рассматривать Tag как хранилище строки. Корректен ли будет код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Tag  := Integer(@AnsiString(edit1.Text)[1]);
 Edit2.Text := AnsiString(pointer(Edit1.Tag));
end;


---

Ega23   (2008-12-16 13:01:00) [5]

Пропиши туда значение указателя на любую структуру или любой класс.

---

Amoeba   (2008-12-16 12:59:00) [6]

Можно, если они двубайтовые.

TIntRec = type
 Value1: Word; //или SmallInt
 Value2: Word; //или SmallInt
end;

TIntRec(Component.Tag).Value1 := N;
TIntRec(Component.Tag).Value2 := M;

---

ivak   (2008-12-16 12:58:00) [7]

Зачем тебе?
Впиши код. Может можно как-то по другому

---

Правильный$Вася   (2008-12-16 12:58:00) [8]

в старшее и младшее слово соответственно

---

Наверх