Fehlermeldung Listenindex überschreitet das Maximum

[dome0501]

Zitat von braunbaer:

Und jetzt der nächste Schritt:

was macht er im TFrom3 Create...
Vermutlich liegt dort der Fehler

in der tform3.formcreate soll er garnichts machen

[Schokohase]

Es gibt einen Unterschied zwischen SOLL und IST Zustand.

Aktuell wird bei TForm3.Create etwas ausgeführt was den Fehler verursacht, auch wenn dort nichts gemacht werden SOLL. Wenn du uns nicht den Quelltext von TForm3 zeigst, dann kann dir niemand helfen, denn am Wochenende sind die Glaskugeln beim Polieren.

[dome0501]

Zitat von Schokohase:

Es gibt einen Unterschied zwischen SOLL und IST Zustand.

Aktuell wird bei TForm3.Create etwas ausgeführt was den Fehler verursacht, auch wenn dort nichts gemacht werden SOLL. Wenn du uns nicht den Quelltext von TForm3 zeigst, dann kann dir niemand helfen, denn am Wochenende sind die Glaskugeln beim Polieren.

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;

type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
SpinButton1: TSpinButton;
procedure Button1Click(Sender: TObject);
procedure SpinButton1DownClick(Sender: TObject);
procedure SpinButton1UpClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

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;
form2.memo1.lines.delete(a-1);
form2.memo2.lines.delete(a-1);
form2.memo3.lines.delete(a-1);

form1.memo1.lines.delete(a-1);
form1.memo2.lines.delete(a-1);
form1.memo3.lines.delete(a-1);
form3.Visible:=false;
i:=i-1;
end;
end;

procedure TForm3.SpinButton1DownClick(Sender: TObject);
var u:integer;
begin
u:=strtoint(edit1.text);
edit1.Text:=inttostr(u-1);

end;

procedure TForm3.SpinButton1UpClick(Sender: TObject);
var u:integer;
begin
u:=strtoint(edit1.text);
edit1.Text:=inttostr(u+1);

end;

procedure TForm3.FormCreate(Sender: TObject);
begin

end;

end.

hier bitte

[Schokohase]

Damit es leichter für uns alle zu lesen ist, verwende doch bitte die Delphi-CodeTags. Das ist beim Editor das Symbol mit dem Helm. Sieht dann z.B. so aus

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.Title := 'Spielanzeige';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3); // <--Die Zeile Markiert der Debugger
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.

Kleine Korrektur, der Debugger bleibt gerne auf der Zeile stehen, die er als nächstes ausführen würde. Also müsste der Fehler in TForm2 zu finden sein.

[dome0501]

Zitat von Schokohase:

Damit es leichter für uns alle zu lesen ist, verwende doch bitte die Delphi-CodeTags. Das ist beim Editor das Symbol mit dem Helm. Sieht dann z.B. so aus

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.Title := 'Spielanzeige';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3); // <--Die Zeile Markiert der Debugger
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.

Kleine Korrektur, der Debugger bleibt gerne auf der Zeile stehen, die er als nächstes ausführen würde. Also müsste der Fehler in TForm2 zu finden sein.

das mit form 2 war ein guter tipp. habe meinen Fehler gefunden danke

[zeras]

Zitat von dome0501:

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