2. Zeile einer Txt auslesen

[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;