Fehlermeldung Listenindex überschreitet das Maximum

[dome0501]

Hi wenn ich mein Programm starten möchte kommt die Fehlermeldng "Listenindex Überschreitet das Maximum (1)" und es wird die Stelle Application.CreateForm(TForm3, Form3); markiert. Kann mir jemand sagen wie der Fehler zu stande kommt?

Vielen Dank schonmal.

[braunbaer]

Hallo Dome0501

Zitat von dome0501:

Hi wenn ich mein Programm starten möchte kommt die Fehlermeldng "Listenindex Überschreitet das Maximum (1)" und es wird die Stelle Application.CreateForm(TForm3, Form3); markiert. Kann mir jemand sagen wie der Fehler zu stande kommt?

Vielen Dank schonmal.

der Fehler sagt ja schon alles
kannst du den Quelltext posten...
also den teil, wo der Debugger stoppt.

Gruß Gebhard

[dome0501]

Hallo Gebhard

Hier der Quelltext:
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.

[dome0501]

Zitat von braunbaer:

Hallo Dome0501

Zitat von dome0501:

Hi wenn ich mein Programm starten möchte kommt die Fehlermeldng "Listenindex Überschreitet das Maximum (1)" und es wird die Stelle Application.CreateForm(TForm3, Form3); markiert. Kann mir jemand sagen wie der Fehler zu stande kommt?

Vielen Dank schonmal.

der Fehler sagt ja schon alles
kannst du den Quelltext posten...
also den teil, wo der Debugger stoppt.

Gruß Gebhard

Hallo Gebhard

Hier der Quelltext:
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.[/QUOTE]

[braunbaer]

Und jetzt der nächste Schritt:

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

[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