Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#10

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

  Alt 15. Dez 2003, 19:52
Hi Devnull,

Zitat von devnull:
zeilenzahl := random (max_zeilenzahl);
Wo dann das Problem, wie du max_zeilenzahl ermitteln willst, ohne vorher alles in den Speicher zu lesen oder sonstwie die CR zu zählen. Deshalb würd ich auch die Datei mittels einer TStringlist komplett einlesen und anschliessend mit StringList[random(Stringlist.count)] in eine Zeile springen.

Gruss,
Tom
  Mit Zitat antworten Zitat