Listenindex überschreitet Maximum(1)

[nahpets]

Hallo,

bitte ändere Deinen Quelltext mal entsprechend:

Zitat von DelphiUser1:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var sdd: TStrings;
begin
  if Form3.Visible then
  begin
    if FileExists(path+'Info'+Form1.Edit1.Text+'.txt') then
    begin
      sdd:=TStringList.Create;
      sdd.LoadFromFile(path+'Info'+Form1.Edit1.Text+'.txt');

      ShowMessage(IntToStr(sdd.Count)); // <!-- Diese Ausgabe muss mindestens den Wert 4 ergeben!!!
      ShowMessage(sdd.text) // <!-- Werden hier alle von Dir erwarteten Zeilen angezeigt oder nur eine?

      Label3.Caption:=sdd.Strings[0];
      Label4.Caption:=sdd.Strings[1];
      Label4.Caption:=sdd.Strings[2];
      Label6.Caption:=sdd.Strings[3];
      sdd.free;
    end;
  end;
end;

Sind die Ausgaben entsprechend Deinen Erwartungen? Andernfalls prüfe mal das Erstellen der Datei, ob hier eventuell Informationen verlorengehen.