Zitat von
flomei:
anzahl_m := Random(m_namen.Count);
Wenn du später Random verwendest, muss doch in anzahl_m die richtige Anahl stehen, also
anzahl_m := m_namen.Count;
Und warum verwendest du ValueFromIndex ??? ies ist doch nur für Zeilen, nutzbar, die in der Art "Wert=Text" geschrieben sind, für die Namenliste benötigst du doch:
Delphi-Quellcode:
procedure TMain_Form.Btn_GenerateNameClick(Sender: TObject);
begin
if
RBtn_male.Checked
then
begin
vorname := m_namen[Random(anzahl_m)]; // Ohne ValueFromIndex
Edt_Name.Text := vorname
end
else
begin
vorname := w_namen[Random(anzahl_w)]; // Ohne ValueFromIndex
Edt_Name.Text := vorname
end
end;