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?

zusammenfalten · markieren

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

Der Index beginnt bei 0

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

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.

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

Zitat:

if ausgabeliste.IndexOf(i) then

Was willst Du mit dieser Zeile erreichen?

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

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?

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

Mach ne Schleife über die Einträge

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