liste.IndexOf?

[DeddyH]

Delphi-Quellcode:

if fileexists ('ausgabe.txt') then
  begin
    ausgabeliste := TStringlist.Create;
    try
      ausgabeliste.LoadFromFile('ausgabe.txt');
      if ausgabeliste.Count > 0 then
        ausgabefeld.Caption:=(ausgabeliste[0]);
      if ausgabeliste.Count > 1 then               
        ausgabefeld2.Caption:=(ausgabeliste[1]);
    finally
      ausgabeliste.Free;
    end;
  end
else
  ausgabefeld.Caption:='                 Keine ausgabe.txt vorhanden';