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