Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

HF-Trade © (2005-02-15 07:08:00)
К примеру мне надо едитам с 1-ого по 5-тый в текст записать ХХХ
как их перичислить типа - Edit[1..5].Text:='XXX';

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

Anatoly Podgoretsky (2005-02-15 08:41:00) [1]
RTFM, RTFM and RTFM. (c) Lenin :)

HF-Trade (2005-02-15 07:51:00) [2]
Всем пасиб... ;)

Kerk (2005-02-15 07:48:00) [3]

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

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

Думкин (2005-02-15 07:46:00) [4]
> И есть ли переменная типа Variant для компонентов -

TComponent

ЮЮ (2005-02-15 07:46:00) [5]
>есть ли переменная типа 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;

HF-Trade (2005-02-15 07:44:00) [6]
Это по первому, а по второму как?

КаПиБаРа (2005-02-15 07:40:00) [7]
HF-Trade © (15.02.05 7:08)
Занеси их в массив и работай с ними перебирая в цикле.

Наверх

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