Hallo!
Für nen kleines Programm zwischendurch wollte ich gerne eine zufällige Zeile aus einer Textdatei auslesen.
Ich hab die Datei so geöffnet:
Delphi-Quellcode:
AssignFile(m_namen, ParamStr(1)+'m.txt');
{$I-}
Reset(m_namen);
{$I+}
if
IOResult <> 0
then
begin
MessageDlg('Ein Fehler ist aufgetreten!'+#10#13
+'Vielleicht fehlt die Datei: m.txt ?!?', mtWarning, [mbOK], 0)
end;
Nun möchte ich gerne in einer OnClick Prozedur eine zufällig ausgewählte Zeile aus dieser Datei auslesen...
Bisher bin ich soweit:
Delphi-Quellcode:
procedure TMain_Form.Btn_GenerateNameClick(Sender: TObject);
begin
if
RBtn_male.Checked
then
vorname := ReadLn(m_namen,vorname);
end;
Ich weiss, das ist nicht viel und leider meckert er auch noch rum und erzählt mir einen von ordinalen Typen nur komm ich nicht weiter. Ich weiss nicht wie ich das hinbekomm.
Wär nett, wenn einer von euch helfen könnte...
Danke im Vorraus!
MfG Florian
