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

Цикл...   Найти похожие ветки 

← →
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 вся ветка

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



Память: 0.47 MB
Время: 0.012 c