Почему-то не пашет!!!

← →
Vintel (2003-10-16 11:04) [0]

У меня 7 CheckBox-ов, мне их надо переберать в цикле.
Делаю так:

For i:=1 to 7 do
begin
t:=IntToStr(i);
If CheckBox+"t".Checked=true then Edit1.Text:=Kom;
end;

Фигня какая-то!! Не пашет нифига, Delphi must die.

cooler_g@mail.ru, drsmoll@imk.edu.by

← →
Skier (2003-10-16 11:05) [1]

RTFM

← →
Кулюкин Олег (2003-10-16 11:07) [2]

> Фигня какая-то!! Не пашет нифига, Delphi must die.

VB Rulez.

Дельфя для ламеров.

← →
Nikky (2003-10-16 11:08) [3]

> Фигня какая-то!! Не пашет нифига, Delphi must die.

а у меня на аспе не пашет:

tVintelMotherFucker = class (tStupidIdiot)
end;

АСП ОТСТОЙ!!!

← →
Nikky (2003-10-16 11:09) [4]

> VB Rulez.

Папский тулкит для папских программеров. :)

← →
Кулюкин Олег (2003-10-16 11:12) [5]

> Nikky © (16.10.03 11:09) [4]
> > VB Rulez.
> Папский тулкит для папских программеров. :)

For real men only

← →
default (2003-10-16 11:14) [6]

нельзя же просто кричать "Delphi must die.", это бестолку, надо воплощать это во что-то реальное, могу предложить uninstall delphi

← →
PVOzerski (2003-10-16 11:15) [7]

Вы что, не понимаете, чем компилятор от интерпретатора отличается?.. Уже тем, что имя переменной - это для программиста, а ее адрес - это для программы. Хотя в Delphi в этом специально "дыра" сделана - RTTI называется, но здесь, IMHO, она поможет мало. Отыскать переменную по имени изловчиться и можно, но, IMHO, здесь не нужно. Лучше перебери в цикле контролы на форме (на то у формы есть свойства Controls[] и ControlCount) и через is проверь их принадлежность к типу tCheckBox.

← →
Johnny Smith (2003-10-16 11:15) [8]

2Vintel (16.10.03 11:04)
Не слушайте никого!
Надо делать так:

repeat
t:=IntToStr(i);
t:="CheckBox"+t+".Checked";
If t<>"" then Edit1.Text:=Kom;
unitl False;

← →
Kair (2003-10-16 11:18) [9]

for I:=1 to 7 do
if (FindComponent("CheckBox"+IntToStr(I)) as TCheckBox).Checked then Edit1.Text:=Kom;

to Кулюкин Олег

:)

← →
default (2003-10-16 11:18) [10]

Johnny Smith © (16.10.03 11:15) [8]
как я сразу-то не допёр млин, круто придумал чувак

← →
Nikky (2003-10-16 11:18) [11]

> Johnny Smith © (16.10.03 11:15) [8]

нет, не так

try
repeat
t:=IntToStr(i);
t:="CheckBox"+t+".Checked";
If t<>"" then Edit1.Text:=Kom;
unitl False;
except
on E: EUndeclaredIdentifier do
MessageDlg (E.Message, mtError, [mbOk], 0)
end;

← →
default (2003-10-16 11:21) [12]

хочется задать вполне естественный вопрос по сабжу: а почему должно "пахать"?

← →
Johnny Smith (2003-10-16 11:22) [13]

2default © (16.10.03 11:21) [12]
хочется задать вполне естественный вопрос по сабжу: а почему должно "пахать"?
Наверное, но пашне...

← →
default (2003-10-16 11:26) [14]

Vintel (16.10.03 11:04)
хотя воспользовавшись свойством Tag или ф-ей FindComponent или как-то ещё, ты можешь воплотить свою гениальную идею в жизнь

← →
Кулюкин Олег (2003-10-16 11:35) [15]

> default © (16.10.03 11:26) [14]
> Vintel (16.10.03 11:04)
> хотя воспользовавшись свойством Tag или ф-ей FindComponent
> или как-то ещё, ты можешь воплотить свою гениальную идею
> в жизнь

For i:=1 to 7 do
begin
t:=IntToStr(i);
If CheckBox+"t".Tag=i then Edit1.Text:=Kom;
end;

нифига не пашет!

← →
Nikky (2003-10-16 11:44) [16]

> Кулюкин Олег © (16.10.03 11:35) [15]

Надо вызвать функцию
SetAllowedSyntax ([asDelphi, asBasic, asASP, asPHP, asVisualC])
!!!

← →
Johnny Smith (2003-10-16 11:50) [17]

2Nikky © (16.10.03 11:44) [16]
Надо вызвать функцию
SetAllowedSyntax ([asDelphi, asBasic, asASP, asPHP, asVisualC])
!!!
Не пашет...
Говорит, что такая API-шка будет доступна только при накатке 7-го сервиспака на Win2005...
Дай линк, где ты скачивал Win2005 и все ейные сервис-паки...

← →
Кулюкин Олег (2003-10-16 11:51) [18]

> Johnny Smith © (16.10.03 11:50) [17]
> Дай линк, где ты скачивал Win2005 и все ейные сервис-паки...

Дайте код, ну чо вам жалко?
А нафига тогда тут торчите?

← →
Johnny Smith (2003-10-16 11:53) [19]

2Кулюкин Олег © (16.10.03 11:51) [18]
Дайте код, ну чо вам жалко?
А нафига тогда тут торчите?
В заламинированной коробочке на 17-ти DVD, но БЕЗ лицензионного соглашения.

← →
Nikky (2003-10-16 11:55) [20]

> Дайте код, ну чо вам жалко?
> А нафига тогда тут торчите?

> Говорит, что такая API-шка будет доступна только при накатке
> 7-го сервиспака на Win2005...

учитесь правильно формулировать вОпрос.
SetAllowedSyntax не апишная функция, чисто дельфовая
поставляется с Delphi 7 For Cool Programmers Edition

← →
Johnny Smith (2003-10-16 11:58) [21]

2Nikky © (16.10.03 11:55) [20]
учитесь правильно формулировать вОпрос.
SetAllowedSyntax не апишная функция, чисто дельфовая
поставляется с Delphi 7 For Cool Programmers Edition
А вот нифига!
Мелкософты, увидев ее в Дельфях осознали ее крутость и сделали апишной.
Но только в Вынь2005 :(((((((((

← →
Johnny Smith (2003-10-16 11:59) [22]

Но только в Вынь2005 :(((((((((
Хотя, в Положь2003 она тоже есть, но только как демка...

← →
Nikky (2003-10-16 12:00) [23]

> Johnny Smith © (16.10.03 11:58) [21]

значит, Эту Вынь нельзя будет продавать.

SetAllowedSyntax использует алгоритмы искусственного интеллкта, запрещенные к применению в сетевых операционных системах!

Наверное, это какая-то индейская хитрость

← →
Johnny Smith (2003-10-16 12:03) [24]

2Nikky © (16.10.03 12:00) [23]
SetAllowedSyntax использует алгоритмы искусственного интеллкта, запрещенные к применению в сетевых операционных системах!
Наверное, тут потрудился Dmitry O.

← →
KSergey (2003-10-16 12:03) [25]

Ну налетели!
Автору-то дайте хоть слово вставить!
Автор, просим!

← →
Johnny Smith (2003-10-16 12:04) [26]

2KSergey © (16.10.03 12:03) [25]
Ну налетели!
Автору-то дайте хоть слово вставить!
Автор, просим!
Тихо! Автор думает!..

← →
Palladin (2003-10-16 12:05) [27]

:) автор забил уже на эту ветку после поста милосердного kair"а

← →
Johnny Smith (2003-10-16 12:13) [28]

2Palladin © (16.10.03 12:05) [27]
:) автор забил уже на эту ветку после поста милосердного kair"а
И теперь делает циклы по следующему компоненту палитры...

← →
Vintel (2003-10-16 12:17) [29]

Спасибо!!! Не думал что на идиотский вопрос реальный код кто-то даст...
Отдельное спасибо kair... :)

← →
Nikky (2003-10-16 12:21) [30]

> Vintel (16.10.03 12:17) [29]

какой каир, реальный код дал я

← →
Johnny Smith (2003-10-16 12:26) [31]

← →
Кулюкин Олег (2003-10-16 12:26) [32]

← →
Кулюкин Олег (2003-10-16 12:27) [33]

> Johnny Smith © (16.10.03 12:26) [31]
> 2Nikky © (16.10.03 12:21) [30]
> какой каир, реальный код дал я
> А пацанский код - я!

А я раньше вас эту ветку увидел.
А еще у меня ведерко и совочек есть!

← →
Vintel (2003-10-16 12:28) [34]

> какой каир, реальный код дал я

Ты про этот??
tVintelMotherFucker = class (tStupidIdiot)
end;

← →
clickmaker (2003-10-16 12:36) [35]

> Vintel

Если проблема не решается, попробуй зайти с другого конца:

For i:=7 downto 1 do begin t:=IntToStr(i); If CheckBox+"t".Checked=true then Edit1.Text:=Kom; end;

← →
blackman (2003-10-16 16:09) [36]

Edit1.Refresh её и всё

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

> У меня 7 CheckBox-ов, мне их надо переберать в цикле.

Есть функция API
PerebratVCycle

← →
Sergp (2003-10-16 16:34) [38]

2 Vintel (16.10.03 11:04)

Сделай так:

var
checkbox:array[1..7] of TCheckBox;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
// здесь создаем сheckbox"ы, надеюсь эту часть сам напишешь...

end;

...
procedure MyCykle;
var
...
begin
For i:=1 to 7 do
If CheckBox[i].Checked=true then Edit1.Text:=Kom;
end;
...

← →
clickmaker (2003-10-16 16:38) [39]

> Кулюкин Олег © (16.10.03 16:20) [37]
>
> > У меня 7 CheckBox-ов, мне их надо переберать в цикле.
>
> Есть функция API
> PerebratVCycle

В смысле, "выпить лишнего в кабаке Cycle" ?

← →
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]

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