Listenindex überschreitet Maximum(1)

[stahli]

Mal ein Versuch, damit Du etwas weiter kommst:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var 
  sdd: TStringList; // identischer Typ mit Instanz
  FN: String; // damit nicht zwei mal die gleiche "Berechnung" verwendet werden muss
begin
  if Form3.Visible then
  begin
    FN := path+'Info'+Form1.Edit1.Text+'.txt';
    if FileExists(FN) then
      begin
        sdd := TStringList.Create;
        sdd.LoadFromFile(FN); // es ist unsicher, wie viele Zeilen in der StringList stehen
        if ssd.Count > 0 then
          Label3.Caption:=sdd[0]
        else
          Label3.Caption:='';
        if ssd.Count > 1 then
          Label4.Caption:=sdd[1]
        else
          Label4.Caption:='';
        if ssd.Count > 2 then
          Label4.Caption:=sdd[2] // müsste Label5 heißen?
        else
          Label4.Caption:='';
        if ssd.Count > 3 then
          Label6.Caption:=sdd[3]
        else
          Label6.Caption:='';
        FreeAndNil(ssd);
      end;
  end;
end;