Projekt - Canvas - Bewegung von Ellipsen

[Croon1337]

Hallo@Community,

Bin noch relativ neu in der Delphi-Programmierung und habe mein erstes größeres Projekt angefangen und es kam gleich am Anfang zum Stillstand. Ich bekomme andauernd Exception-Fehler.
Unter anderem in den Zeilen:
i := StrToInt(Options1.Edit1.Text);
r := Ir;
Ich weiß, das gerade nur das Konzept des Programmes steht, aber ich wollte nach der ersten Testphase das ganze Programm verallgemeinern, z.B.: Random-Funktionen einbauen.
Das Programm selbst soll jetzt gerade mal mehrere Kugeln kreieren und diese dann durch den Raum schleudern. (der Anfang ist da, wie gesagt, der durch Exceptions jetzt aufgehalten wurde.)

Wenn jemand mit Helfen kann, dann bitte hilf mir. thx

Delphi-Quellcode:

unit mBall1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, mOptions1;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Start1: TMenuItem;
    Pause1: TMenuItem;
    Continue1: TMenuItem;
    Exit1: TMenuItem;
    N2: TMenuItem;
    Help1: TMenuItem;
    Timer1: TTimer;
    Options: TMenuItem;
    procedure Start1Click(Sender: TObject);
    procedure Pause1Click(Sender: TObject);
    procedure Continue1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    function Ausnahme:Boolean;
    procedure FormCreate(Sender: TObject);
    procedure OptionsClick(Sender: TObject);
  private
    Options1: TOptions1;
  public

end;

(*---------------------------Klassendefinition-Ball--------------------------*)

type
  TBall = class
    r,x,y,vx,vy : integer;
    cRand, cInnen : TColor;
    constructor BallInit (Ir,Ix,Iy,Ivx,Ivy:integer;IcInnen,IcRand:TColor);
    procedure BallZeichnen;
    procedure BallLoeschen;
    procedure BallBewegen;
    constructor BallErstellen;
end;

(*-----------------------------------ENDE------------------------------------*)

var
  Main: TMain;
  Ball: array of TBall;

implementation

{$R *.dfm}

(*-------------------------------TBall-Abläufe-------------------------------*)

constructor TBall.BallInit (Ir,Ix,Iy,Ivx,Ivy:integer;IcInnen,IcRand:TColor);
begin
  r := Ir;
  x := Ix;
  y := Iy;
  vx := Ivx;
  vy := Ivy;
  cInnen := IcInnen;
  cRand := IcRand
end;

constructor TBall.BallErstellen;
var i : integer;
begin
i := StrToInt(Options1.Edit1.Text);
SetLength (Ball,i);
for i := 0 to Length (Ball) do
Ball[i].BallInit(Random(20),Random(Main.ClientHeight-r),Random(Main.ClientWidth-r),Random(Main.ClientHeight+r),Random(Main.ClientWidth+r),clBlack,clBlack);
end;

procedure TBall.BallZeichnen;
var i : integer;
begin
  for i := 0 to Length (Ball) do
  begin
    Main.Canvas.Brush.Color := Ball[i].cInnen;
    Main.Canvas.Pen.Mode := pmCopy;
    Main.Canvas.Pen.Color := Ball[i].cRand;
    Main.Canvas.Ellipse (x-r,y-r,x+r,y+r);
  end;
end;

procedure TBall.BallLoeschen;
begin
  Main.Canvas.Brush.Color := Main.Color;
  Main.Canvas.Pen.Mode := pmCopy;
  Main.Canvas.Pen.Color := Main.Color;
  Main.Canvas.Ellipse (x-r,y-r,x+r,y+r);
end;

procedure TBall.BallBewegen;
begin
  x := x + vx;
  y := y + vy;
end;

(*-------------------------------TMain-Abläufe-------------------------------*)

procedure TMain.FormCreate(Sender: TObject);
var i : integer;
begin
TBall.BallErstellen;
for i := 0 to Length (Ball) do
Ball[i] := TBall.BallInit (Random(20),Random(Main.ClientHeight-Ball[i].r),Random(Main.ClientWidth-Ball[i].r),Random(Main.ClientHeight+Ball[i].r),Random(Main.ClientWidth+Ball[i].r),clBlack,clBlack);
end;

procedure TMain.Start1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to Length (Ball) do
  begin
    if Ball[i].x <> 10 then
      begin
        Main.Canvas.Pen.Color := Main.Color;
        Main.Canvas.Brush.Color := Main.Color;
        Main.Canvas.Ellipse (Ball[i].x-Ball[i].r,Ball[i].y-Ball[i].r,Ball[i].x+Ball[i].r,Ball[i].x+Ball[i].r);
        Ball[i] := TBall.BallInit (Random(20),Random(Main.ClientHeight-Ball[i].r),Random(Main.ClientWidth-Ball[i].r),Random(Main.ClientHeight+Ball[i].r),Random(Main.ClientWidth+Ball[i].r),clBlack,clBlack);
      end;
    Timer1.Enabled := True;
    Ball[i].BallZeichnen;
  end;
end;

procedure TMain.Pause1Click(Sender: TObject);
begin
  if Timer1.Enabled = True then
    Timer1.Enabled := False;
end;

procedure TMain.Continue1Click(Sender: TObject);
begin
  if Main.Ausnahme = True then
    Main.Timer1.Enabled := False;
  if Main.Ausnahme = False then
    Main.Timer1.Enabled := False
end;

procedure TMain.Timer1Timer(Sender: TObject);
var i : integer;
begin
  if Main.Ausnahme = True then Main.Timer1.Enabled := False;
  for i := 0 to Length (Ball) do
  begin
    Ball[i].BallLoeschen;
    Ball[i].BallBewegen;
    Ball[i].BallZeichnen;
  end;
end;

procedure TMain.Exit1Click(Sender: TObject);
begin
  Application.Terminate;
end;

function TMain.Ausnahme:Boolean;
var i, BallAnzahl: integer;
begin
  BallAnzahl := Length (Ball);
  for i:=0 to (BallAnzahl-1) do
    begin
      if (Ball[i].x = Main.ClientWidth-Ball[i].r) or (Ball[i].y = Main.ClientHeight-Ball[i].r) then
        result := true
      else
        result := false;
    end;
end;

(*-----------------------------------ENDE------------------------------------*)

procedure TMain.OptionsClick(Sender: TObject);
begin
//  Options1 := TOptions1.Create(Main);
  Options1.Show;
  Timer1.Enabled := False;
end;

end.

[edit=sakura] [delphi]-Tags eingefügt Mfg, sakura[/edit]

[neolithos]

Herzlich Willkommen in der DP!

Wo genau tritt die Exception auf?
Wie nennt sich die Exception?

Und schau mal beim Schreiben des Post nach oben, da ist ein Schalter Namens "Delphi-Code", damit kann man Quelltext leserlich Formatieren.

Und bei solch langen Posts kann man den Pas-Datei auch als Anhang weitergeben.

[Croon1337]

Danke für den Hinweis mit dem Code. Wurde schon von jemand anderem eingefügt!!!

1. Exception
Klasse : EAccessViolation
Wo? :
i := StrToInt(Options1.Edit1.Text);

2. Exception
Klasse : EAccessViolation
Wo? :
r := Ir;

Sucht mal im HTML-Dokument nach diesen beiden Zeilen. Die erste Exception greift auf ein zweites Formular zu, das schon Automatisch am Anfang mit dem Main-Formular erzeugt wird.
Die zweite Excpetion (wenn ich die erste Exception durch eine feste Vergabe von i umgehe) tritt gleich wieder bei der Zeile "r := Ir;" in der Prozedur TBall.BallInit auf.

Wenn wer helfen kann er mich unter ICQ:94564452 erreichen oder ich kann ihn auch anschreiben wenn er seine Nummer hinterlässt. Außerdem kann ich auch in irgendein Chatraum kommen, wenn es einen hilft mir besser helfen zu können. Ansonsten auf viele Help-Posts für mich. Danke Leute.

[neolithos]

Die erste Exception tritt auf weil es zu dieser Zeit noch kein Formular Options1 gibt. Das wird sicherlich nach dem Hauptformular erstellt.

Übrigens Lösch mal in der Dekleration

Zitat:

Options1: TOptions1;

[neolithos]

Und dies zweite!

Das Object TBall gibt es noch nicht. Du musst es erst erzeugen!

Delphi-Quellcode:

for i := 0 to Length (Ball) do 
Ball[i] := TBall.BallInit(Random(20),Random(Main.ClientHeight-r),Random(Main.ClientWidth-r),Random(Main.ClientHeight+r),Random(Main.ClientWidth+r),clBlack,clBlack);

Und die Optionen würde ich in einem Global def. Record ablegen. Den der Optiondialog ändert.
Als könnte man diesen Dialog dann wieder Dynamisch rufen.

Delphi-Quellcode:

with TOptions.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;

[Croon1337]

Danke für die Hilfe, es funktioniert jetzt alles wie es soll.