Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Вниз
Цикл... Найти похожие ветки
← →
Shluz (2003-05-27 11:35) [0]Уважаемые мастера!!! Вопросик:)
Есть 4 Radiobutton... массив из 3-х элементов...в одном из Radiobutton уже
есть надпись, как: проверить кнопки на наличие в них записи "заполнено" и
вписать в остальные три значения массива???
//
номер радиокнопки которая заполняется первой случайно
( ) RAdiobutton1
( ) "заполнено"
( ) Radiobutton3
( ) Radiobutton
← →
Skier (2003-05-27 11:41) [1]Это имеется в виду ?
if TRadioButton(SomeObject).Caption = "...." then
← →
Palladin (2003-05-27 11:45) [2]
var
ar:array [1..3] of string;
c:TComponent;
ci,i:integer;
begin
ci:=1;
for i:=1 to 4 do
begin
c:=FindComponent("RadioButton1");
if (Assigned(c)) and (TRadioButton(c).Caption<>"заполнено") then
begin
TRadioButton(c).Caption:=ar[ci];
ci:=ci+1;
end;
end;
end;
писано тут...
← →
Palladin (2003-05-27 11:46) [3]c:=FindComponent("RadioButton1");
заменить на
c:=FindComponent("RadioButton"+inttostr(i));
← →
Shluz (2003-05-27 11:47) [4]да,..но задача такая: if TRadioButton(SomeObject).Caption = "что-то" тогда ее не заполнять, а заполнить остальные три из массива //mas : array[1..3] of string=("a","b","c");
← →
Skier (2003-05-27 11:47) [5]>Palladin © (27.05.03 11:45)
if (c is TRadioButton) and (TRadioButton(c).Caption<>"заполнено") then
← →
Skier (2003-05-27 11:49) [6]>Shluz © (27.05.03 11:47)
У тебя все эти RadioButton-ы на одном контейнере (родителе) ?
← →
Shluz (2003-05-27 11:50) [7]нет, без родителя...
← →
Palladin (2003-05-27 11:53) [8]
> Shluz © (27.05.03 11:50)
а где они тогда?
← →
Shluz (2003-05-27 11:53) [9]Всем спасибо!!! а то загнался.. Palladin - маэстро :)
← →
Skier (2003-05-27 11:53) [10]>Shluz © (27.05.03 11:50)
1) На форме ?
2) Сколько этих RadioButton-ов ? Только четыре ?
← →
Palladin (2003-05-27 11:55) [11]нэт к сожалению, может только начинающий...
← →
KSergey (2003-05-27 11:56) [12]> Shluz © (27.05.03 11:50)
> нет, без родителя...
А вот так не может быть в принципе.
Даже то, что лежит непосредственно на десктопе имеет родителя - десктоп.
← →
Palladin (2003-05-27 12:37) [13]
> KSergey © (27.05.03 11:56)
хм,
var
rb:TRadioButton;
rb:=TRadioButton.Create(nil);
что на это скажешь?
← →
KSergey (2003-05-27 15:01) [14]> Palladin © (27.05.03 12:37)
Что Owner у rb равен nil. Возражения есть?
← →
Palladin (2003-05-27 15:06) [15]А кто родитель?
← →
KSergey (2003-05-27 15:15) [16]> Palladin © (27.05.03 15:06)
А в приведенном коде родитель не назначен, увы...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
