liste.IndexOf?

[grenzgaenger]

Zitat von Jiro:

immer noch die exception (wenns so aussieht):

Delphi-Quellcode:

procedure Ttextausgabe.FormActivate(Sender: TObject);
var
ausgabeliste : TStrings;
   i:integer;
 begin
begin
ausgabeliste := TStringlist.Create;
   if fileexists ('ausgabe.txt')


                   then

                        begin

          ausgabeliste.LoadFromFile('ausgabe.txt');

                ausgabefeld.Caption:=(ausgabeliste[0]);
                   ausgabeliste.Count;
                      for i := 0 to ausgabeliste.Count-1 do
                ausgabefeld2.Caption:=(ausgabeliste[1]);

                      end
                else
                   ausgabefeld.Caption:='                 Keine ausgabe.txt vorhanden';

ich hab dir das mal formatiert:

Delphi-Quellcode:

PROCEDURE Ttextausgabe.FormActivate(Sender: TObject);
VAR
  ausgabeliste: TStrings;
  i: integer;
BEGIN
  BEGIN
    ausgabeliste := TStringList.Create;
    IF fileexists('ausgabe.txt') THEN
    BEGIN

      ausgabeliste.LoadFromFile('ausgabe.txt');

      ausgabefeld.Caption := (ausgabeliste[0]);
      ausgabeliste.Count;
      FOR i := 0 TO ausgabeliste.Count - 1 DO
        ausgabefeld2.Caption := (ausgabeliste[1]);

    END
    ELSE
      ausgabefeld.Caption := '                 Keine ausgabe.txt vorhanden';

  END;
END;

siehst du den unterschied?