liste.IndexOf?

[mkinzler]

Zitat:

Das kann nie schaden Laughing

Und tut hier auch Not. denn ich bezweifle, dass er die Lösung nun versteht oder warum seine nicht.

[DeddyH]

[OT] Das geht einigen anderen hier genauso [/OT]

[Jiro]

So, brauch nochmal Hilfe. Wenn jetzt keine .txt da ist, sonder eine jpg, wie kann ich das dann machen? also jpg anzeigen...

[grenzgaenger]

{bitte löschen, falscher thread}

[mkinzler]

Dann benötigst du TImage mit installiertem Jpeg-Filter.
http://www.delphi-treff.de/tutorials/grundlagen/

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