Fehlermeldung Listenindex überschreitet das Maximum

**zeras**

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
TryStrToInt

**DieDolly**

Noch einfacher: Edit1.NumbersOnly := True;

**Darlo**

Zitat von DieDolly:

Noch einfacher: Edit1.NumbersOnly := True;

Wir wollen doch BL und Eingabe nicht vermischen

Aber im Grunde hast du ja Recht

Fehlermeldung Listenindex überschreitet das Maximum

AW: Fehlermeldung Listenindex überschreitet das Maximum

AW: Fehlermeldung Listenindex überschreitet das Maximum

AW: Fehlermeldung Listenindex überschreitet das Maximum

Stichworte

Forumregeln

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#12 AW: Fehlermeldung Listenindex überschreitet das Maximum 18. Nov 2018, 12:09 Noch einfacher: Edit1.NumbersOnly := True;
	Zitat

Darlo Registriert seit: 28. Jul 2008 Ort: München 1.196 Beiträge Delphi 10.2 Tokyo Enterprise	#13 AW: Fehlermeldung Listenindex überschreitet das Maximum 18. Nov 2018, 21:40 Zitat von DieDolly: Noch einfacher: Edit1.NumbersOnly := True; Wir wollen doch BL und Eingabe nicht vermischen Aber im Grunde hast du ja Recht Philip
	Zitat