2. Zeile einer Txt auslesen

[Marcel2906]

hey leute, hab vermutlich eine leichte Frage.
Undzwar übergebe ich in meinem Code der variable z die erste zeile meiner txt Datei.

Delphi-Quellcode:

   AssignFile(F, 'Neu.txt'); { Datei ausgewählt }
   Reset(F);
   Readln(F, z); { Erste Zeile der Datei lesen }
   CloseFile(F);

Aber wie kann ich meiner Variablen z die 2 (zufällige) Zeile zuordnen ?

[Dawn87]

Nach einem weiteren Aufruf von ReadLn kriegst du automatisch die nächste Zeile (Ich hoffe ich hab Dich richtig verstanden).

[himitsu]

Indem du vorher alle Zeilen einliest, welche du nicht willst?
for i := 1 to x-1 do ReadLn(F) oder ReadLn(F, TempVar); Das Seek für Benärdateien gibt es nunmal nicht für Textdateien, da es z.B. "schwerer" ist genau einen Zeilenanfang zu treffen.

alternativ: z.B. TStringList

[Marcel2906]

also ich hab die den code in einer buttonclick procedure...
also kann ich nicht "mal eben" sagen, das z bei einem klcik den wert einer zufälligen zeile von Neu.txt bekommt?

[Luckie]

Nimm eine Stringliste. Dann kannst du per Random und den Index auf eine beliebige Zeile zu greifen.

[Bummi]

mir erschließt sich zwar der Sinn nicht ....

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  sl:TStringList;

begin
   sl:=TStringList.Create;
   try
   sl.LoadFromFile('C:\temp\testx.txt');
   z := sl[Random(sl.Count)];
   Showmessage(z);
   finally
     sl.Free;
   end;
end;

[Marcel2906]

Zitat von Bummi:

mir erschließt sich zwar der Sinn nicht ....

Danke, funktioniert. Also der Sinn ist..Ich habe in meiner Text Datei in jeder Zeile ein anderen Sudoku. Und nun möchte ich mit diesem Klick ein zufälliges Sudoku laden...