liste.IndexOf?

[Jiro]

Ich habe ein ausgabe programm geschrieben, aber wenn in der ausgabe.txt nur eine Zeile drin ist, steht als exception Index überschreitet das Maximum.
ausgabefeld 1 und 2 sind Labels. Wie kann ich machen, dass bei einer Zeile die Zeile angezeigt wird?

Delphi-Quellcode:

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


                   then

                        begin
                        i:=1;
          ausgabeliste.LoadFromFile('ausgabe.txt');

                ausgabefeld.Caption:=(ausgabeliste[0]);
                        if ausgabeliste.IndexOf(i) then
                ausgabefeld2.Caption:=(ausgabeliste[1]);

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

[mkinzler]

Der Index beginnt bei 0

[Jiro]

Ja, aber wenn eine 2. Zeile da ist (also indexof (1)), dann soll die auch angezeigt werden.

[mkinzler]

Zitat:

Ich habe ein ausgabe programm geschrieben, aber wenn in der ausgabe.txt nur eine Zeile drin ist, steht als exception Index überschreitet das Maximum.

Ähem. Wenn eine Dateu nur eine Zeile hat, gibt es keine 2.Zeile.

[Jiro]

Ja, aber wenn eine Zeile in der Datei ist, soll eine Zeile angezeigt werden, wenn 2 Zeilen drin sind 2

[DeddyH]

Zitat:

Delphi-Quellcode:

if ausgabeliste.IndexOf(i) then

Was willst Du mit dieser Zeile erreichen?

[mkinzler]

Dann muss i anfänglich 0 sein, da die erste Zeile den Index 0 hat.

[Jiro]

Ich möchte, dass die Exception weggeht, wenn nur eine Zeile in der datei drin ist. Wie kann ich rauskriegen ob es 2 Zeilen sind?

[DeddyH]

Ausgabeliste.Count gibt Dir die Anzahl der Zeilen zurück.

[mkinzler]

Mach ne Schleife über die Einträge

Delphi-Quellcode:

for i := 0 to ausgabeliste.Count-1 do

[grenzgaenger]

Zitat:

Zitat von Jiro

Ja, aber wenn eine Zeile in der Datei ist, soll eine Zeile angezeigt werden, wenn 2 Zeilen drin sind 2

und wenn nur eine zeile drin steht? willste dann auch zwei zeilen anzeigen?
einfach mit for xx in list do durchlaufen

btw: solltest du mal deinen quellcode ordentlich formatieren... da bekommt man ja augenkrebs

[DeddyH]

Schleife für 2 Labels? :wiejetzt:

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

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

[mkinzler]

Dir scheinen ehrlich jegliche Grundlagen zu fehlen.

Delphi-Quellcode:

if ausgabeliste.Count > 0 then ausgabefeld.Caption := ausgabeliste[0];
if ausgabeliste.Count > 1 then ausgabefeld2.Caption := ausgabeliste[1];

wohl die Lösung mit den Labels alles andere als geschickt ist.

[Klaus01]

Hallo Jiro,

was ist denn der Hintergrund des ganzen.

Die Schleifendurchläufe auf einem Label auszugeben finde
ich recht sinnfrei.

Wenn Du nur wissen willst wieviele Zeilen Deine StringListe hat
dann kannst Du das, wie schon gesagt, mit StringList.count machen.
Erfüllt die Anzahl der Zeilen nicht Deine Kriterien, musst Du
entsprechend reagieren.

Grüße
Klaus

[Die Muhkuh]

Verwende absolute Pfade. Du weißt nie, wo Dein Arbeitspfad gerade hinzeigt, wenn Du nur die Datei angibst.

ExtractFilePath, Application.Exename

[Jiro]

THX, klappt jetzt!

[mkinzler]

Trotzdem solltest du dich etwas mit den Grundlagen beschäftigen.

[DeddyH]

Zitat:

Zitat von mkinzler

Trotzdem solltest du dich etwas mit den Grundlagen beschäftigen.

Das kann nie schaden :lol:

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

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?