Per ReadLn() zufällige Zeile aus Textdatei lesen

[flomei]

So... Irgendwie geht es jetzt fast.

Es fehlt nur der erste Buchstabe. Warum?

MfG Florian :hi:

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

[flomei]

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

MfG Florian :hi:

[scp]

Zitat:

Zitat von flomei

Delphi-Quellcode:

anzahl_m := Random(m_namen.Count);

Wenn du später Random verwendest, muss doch in anzahl_m die richtige Anahl stehen, also

Delphi-Quellcode:

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]

:oops: Da hatte ich wohl was durcheinander geschmissen...

Jetzt geht es aber perfekt! :thumb:

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

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

MfG Florian :dp: