Как в переменной задать перечисляемый тип компонентам

← →
HF-Trade © (2005-02-15 07:08) [0]

К примеру мне надо едитам с 1-ого по 5-тый в текст записать ХХХ
как их перичислить типа - Edit[1..5].Text:="XXX";

И есть ли переменная типа Variant для компонентов -
Если есть процедура и в ней может учавствовать либо ListBox
либо поле Memo, как это указать?

← →
КаПиБаРа © (2005-02-15 07:40) [1]

HF-Trade © (15.02.05 7:08)
Занеси их в массив и работай с ними перебирая в цикле.

← →
HF-Trade © (2005-02-15 07:44) [2]

Это по первому, а по второму как?

← →
Думкин © (2005-02-15 07:46) [3]

> И есть ли переменная типа Variant для компонентов -

TComponent

← →
ЮЮ © (2005-02-15 07:46) [4]

>есть ли переменная типа Variant для компонентов

для этого достаточно переменной типа TObject

procedure Proc(Obj: TObject);
var
str: TStrings;
begin
if (Obj = nil) then
str := nil
else if (Obj is TMemo) then
str := TMemo(Obj).Lines
else if (Obj is TListBox) then
str := TListBox(Obj).Items;

if str <> nil then
Application.Messagebox(PChar("Объект содержит " + IntToStr(str.Count) + " строк"), "Proc", 0)
else
Application.Messagebox("Объект не может содержать строки", "Proc", 0);
end;

end;

← →
Kerk © (2005-02-15 07:48) [5]

>И есть ли переменная типа Variant для компонентов -
> Если есть процедура и в ней может учавствовать либо
>ListBox
> либо поле Memo, как это указать?

Думаю тебе стоит мат.часть учить..
RTFM, RTFM и RTFM. (c)почти Ленин :)

Всем пасиб... ;)

RTFM, RTFM and RTFM. (c) Lenin :)

Как в переменной задать перечисляемый тип компонентам Найти похожие ветки