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;

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

PChar + F1

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

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

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

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