Форум: "Потрепаться";
Текущий архив: 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.035 c
