Форум: "Потрепаться";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Почему-то не пашет!!!   Найти похожие ветки 

← →
Nikky   (2003-10-16 16:39) [40]

>
> Sergp © (16.10.03 16:34) [38]


вы меня просто убили такой простотой.
Напишите еще

TCheckBoxesDispatchedObjectWithAritficialIntelligence = object (tInterfacesObject, IDispatch)
end;

вставьте соответствующую реализацию, назовите Enterprise Edition и продавайте по 8000 баксов как Компоненту, Нужную Всем.

---

← →
blackman   (2003-10-16 16:53) [41]

Вы чего ребята ? Я думал это шутка.
var j,i:integer;
begin
i:=0;
for j := 0 to Form1.ComponentCount -1 do
begin
if Form1.Components[j] is TCheckbox then
begin
i:=i+1;
if TCheckbox(Form1.Components[j]).Checked then
Edit1.Text:=intTostr(i); // Сколько chec
end;
end;

---

← →
Кулюкин Олег   (2003-10-16 17:03) [42]

> clickmaker © (16.10.03 16:38) [39]
> В смысле, "выпить лишнего в кабаке Cycle" ?

Лучше Cycle, чем "Голубая устрица"

---

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

Форум: "Потрепаться";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.51 MB
Время: 0.047 c