Delphi Per ReadLn() zufällige Zeile aus Textdatei lesen

Thema durchsuchen

Ansicht

Themen-Optionen

Per ReadLn() zufällige Zeile aus Textdatei lesen

Ein Thema von flomei · begonnen am 15. Dez 2003 · letzter Beitrag vom 16. Dez 2003

Vorheriger Beitrag

Nächster Beitrag

devnull

Registriert seit: 5. Okt 2003
362 Beiträge

Delphi 7 Personal

Re: Per ReadLn() zufällige Zeile aus Textdatei lesen

15. Dez 2003, 19:41

hi,
du könntest doch auch einfach (wenn du keine liste erzeugen willst) die datei öffnen, und dann dir mit random eine zeilenzahl kreieren lassen.

markieren

Delphi-Quellcode:

			  assignfile ();

  [..]

  zeilenzahl := random (max_zeilenzahl);

  // schleife liest zeile für zeile

  for i := 1 to zeilenzahl-1 do readln (t);

  // wenn i = zeilenzahl, wird die zeile eingelesen, tataa

  readln (t,zeile);

  closefile (t);

vll hilft ja das

devnull

-- Never change a running system --