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

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

← →
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)почти Ленин :)

---

← →
HF-Trade ©   (2005-02-15 07:51) [6]

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

---

← →
Anatoly Podgoretsky ©   (2005-02-15 08:41) [7]

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

---

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

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



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