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