Hier der Quellcode
Delphi-Quellcode:
...
if Form2.Label1.Caption <> '' then
begin
for i := 0 to Form2.RadioGroup1.Index.Count-1 do
begin
if Form2.RadioGroup1.Items[i] =
Form2.Label1.Caption then
begin
Form2.RadioGroup.Enabled := true;
Form2.RadioGroup.ItemIndex := i;
Form2.Label2.Caption := IntToStr(i); // test, ob methode abgearbeitet wird
end;
end; //for
end; // if
Form2.ShowModal;
Label2 zeigt auch den richtigen Zahlenwert and, welcher ItemIndex zugewiesen werden sollte
~joerg