Делаю тест

← →
Михайлов Антон © (2003-05-10 16:40) [0]

Привет, мастера!
Мне вот поручили написать программулину (тест по истории)
Дык вот... я сначала делал для одного теста отдельную прогу, патом решил, что лучше одну прогу, в которую будут подгружаться тесты...
Так вот в чём вопрос:
1)Я когда создаю динамически Радиобуттоны, я не могу знать их имена, тоесть немогу проверить какой из них отмечен правильно
Я так понял, что работать надо с Findcomponent...
Как найти радиобуттон по его кэпшену и узнать чекед он или нет?
2)Я немогу удалить со скролбокса все компоненты (они все созданы динамически)
Пробывал так:
For i:=0 to scrollbox1.ComponentCount do
scrollbox1.Components[i].Free;
Что-то вообще никакой реакции :(

Помогите пожалуйста!

← →
Pat © (2003-05-10 16:50) [1]

>Я когда создаю динамически Радиобуттоны, я не могу знать их имена
Так назначай имена при создании:
RB[i].name:="RB"+inttostr(i)

>Как найти радиобуттон по его кэпшену и узнать чекед он или нет
см. выше. Искать примерно так:
if TRadioButton(FindComponent("RB"+inttostr(i))).checked then

>Я немогу удалить со скролбокса все компоненты
Опять же см. выше
FindComponent("RB"+inttostr(i)).free

← →
jack128 © (2003-05-10 17:46) [2]

а как ты создаешь компоненты?
Все компонеты хранятся в массиве Сomponents своего владельца, так что если у тя код. например, такой
TRadioButton.Create(nil).Parent := Form1;
то этот компонент ты негде не найдешь.
Лудше объяви дин массив радио баттонов и создовай их так :
var RBArray : array of TRadioButton;
begin
for i := 0 to Length(RDArray) do RDArray[i].Free;
SetLength(RDArray,10);
for i:= 0 to 9 do
begin
RDArray[i] := TRadioButton.Create(чего хочешь);
RDArray.Parent := Form1; // Показываем радиобаттон
end;
end; // и соответственно всегда имеешь доступ к этим радиобаттонам

← →
jack128 © (2003-05-10 17:47) [3]

Моя хроническая ошибка
for i := 0 to Length(RDArray) -1 do RDArray[i].Free;

Удалено модератором
Примечание: Личная переписка

Делаю тест Найти похожие ветки