Per ReadLn() zufällige Zeile aus Textdatei lesen

[flomei]

So... Irgendwie geht es jetzt fast.

Es fehlt nur der erste Buchstabe. Warum?

MfG Florian

[EDIT] Und warum ist alles in Kleinbuchstaben? [/EDIT]

[flomei]

Weiss denn keiner warum der erste Buchstabe fehlt und alles in Kleinbuchstaben steht???

MfG Florian

[scp]

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;

[flomei]

Da hatte ich wohl was durcheinander geschmissen...

Jetzt geht es aber perfekt!

1. Es fehlen keine Buchstaben mehr...
2. Großbuchstaben gibt es auch...

Danke nochmal! Ich glaub ich hab doch etwas gelernt...

MfG Florian