Текущий архив: 2009.02.01;
Скачать: 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 вся ветка
Текущий архив: 2009.02.01;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.012 c
