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

Tag   Найти похожие ветки 

← →
D12   (2008-12-16 12:51) [0]

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

---

← →
ivak ©   (2008-12-16 12:58) [1]

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

---

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

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

---

← →
Amoeba ©   (2008-12-16 12:59) [3]

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

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

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

---

← →
Ega23 ©   (2008-12-16 13:01) [4]

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

---

← →
D12   (2008-12-16 13:29) [5]

А если рассматривать 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:31) [6]

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


PChar + F1

---

← →
clickmaker ©   (2008-12-16 13:38) [7]

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

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

---

← →
KilkennyCat ©   (2008-12-16 14:03) [8]

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

---

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

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



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