Zitat von
shmia:
Ein RadioGroupBox ist ungeeignet, um eine Stückzahl vorzugeben.
Es wird zu viel Platz benötigt und erlaubt keine eigenen Eingaben.
Es gibt 2 sinnvolle Alternativen:
a.) TComboBox, der Items mit den voreingestellten Werten gefüllt ist. Trotzdem kann der Benutzer eigene Werte eingeben:
auswahl := StrToInt(ComboBoxAnzahl.Text);
b.) TSpinEdit (auf Palettenseite "Beispiele")
auswahl := Round(SpinEditAnzahl.Value);
Ich habe das so im Programm verbaut:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var fibo:array[1..50] of longint;
auswahl:integer;
i:integer;
Begin
auswahl:=StrToInt(ComboBox1.Text);
ListBox1.Items.Clear;
fibo[1]:=StrToInt(edit1.text);
fibo[2]:=StrToInt(edit2.text);
for i:=3 to 50 do
Begin
fibo[i]:=fibo[i-1]+fibo[i-2];
end;
for i:=1 to auswahl do
Begin
listbox1.Items.Add(IntToStr(fibo[i]));
end;
end;
Nun erscheint die Fehlermeldung:is not a valid integer value. Man kann in der Combobox 5 Zahlen auswählen. Übernimmt dann die Variable auswahl den Wert der als Zahl ausgewählt wurde?