Fehlermeldung Listenindex überschreitet das Maximum

[zeras]

Zitat:

Zitat von dome0501 (Beitrag 1418291)

procedure TForm3.Button1Click(Sender: TObject);
var a:integer;
begin
a:=strtoint(edit1.Text);
if (i<a) or (a<1) then showmessage('in der eingegebenen Zeile befindet sich kein Spiel.')
else begin;
end;

Du sollest auch vorher prüfen, ob im Edit1 eine Zahl steht. Sonst kracht es beim Zuweisen auf einen Integer.
Oder du verwendest

Delphi-Quellcode:

 TryStrToInt

[DieDolly]

Noch einfacher:

Delphi-Quellcode:

Edit1.NumbersOnly := True;

[Darlo]

Zitat:

Zitat von DieDolly (Beitrag 1418369)

Noch einfacher:

Delphi-Quellcode:

Edit1.NumbersOnly := True;

Wir wollen doch BL und Eingabe nicht vermischen :duck:
Aber im Grunde hast du ja Recht ;-)