Undefinierter Bezeichner

[Sir Rufo]

Zitat von mkinzler:

Nein ich will wissen, wie diese deklariert sind!

type
TKugel = ???
???
end;

take it easy

[hansdieter11]

Sorry
Bin einfach zu blöd
Ich weiß nicht, was du wissen willst...
Vielleicht, dass es eigene Klassen sind ?

[mkinzler]

Poste mal die Unit(s) der Klassen

[hansdieter11]

Delphi-Quellcode:

unit mtRaumschiff;

interface

  type
    TRaumschiff = class
     public
      x:integer;
      y:integer;
      vx:integer;
      constructor Create;
      property xCoord:integer read x write x;
      property yCoord:integer read y write y;
      function getY:integer;
      function getX:integer;
      procedure GoRight;
     end;
     
implementation

constructor TRaumschiff.Create;
begin
  x := -50;
  vx := Random(7)+5;
  y := Random(60)+5;
end;

function TRaumschiff.getX:integer;
begin
  x := x+vx;
  result := x;
end;

function TRaumschiff.getY:integer;
begin
  result := y;
end;

procedure TRaumschiff.GoRight;
begin
  xCoord := xCoord + 10;
end;

end.

Delphi-Quellcode:

unit mtKugel;

interface

uses
  mtKanone;

  type
    TKugel = class
     public
      y:integer;
      x:integer;
      vy:integer;
      vx:integer;
      constructor Create;
      property yCoord:integer read y write y;
      property xCoord:integer read x write x;
      function getY:integer;
      function getX:integer;
      procedure GoUp;
      destructor Destroy; override;
     end;

implementation

constructor TKugel.Create;
begin
 vy := 10;
 yCoord := 520;
end;

destructor TKugel.Destroy;
begin
  //
end;

function TKugel.getY:integer;
begin
  y := y-vy;
  result := y;
end;

function TKugel.getX:integer;
begin
  result := x;
end;

procedure TKugel.GoUp;
begin
  yCoord := getY;
end;

end.

[mkinzler]

Keine deiner Klassen hat aber die gewünschte Eigenschaften .Top/.Left

[Sir Rufo]

Zitat von hansdieter11:

Sorry
Bin einfach zu blöd
Ich weiß nicht, was du wissen willst...
Vielleicht, dass es eigene Klassen sind ?

Irgendwo, in den Tiefen deines Rechners, versteckt auf einem sich schnell rotierenden Gebilde muss sich eine Datei befinden,
die auf die Endung .pas hört und in der jemand - (bestimmt) sehr kluges - plötzlich und unerwartet auf einmal folgende
Tasten hintereinander drückte:

Delphi-Quellcode:

type
TKugel = class( ....

Und diese Datei möchten wir jetzt gerne sehen.

Da steht die Deklaration für die Klasse TKugel

EDIT: Huch ... ich hätte gedacht das dauert noch ein weilchen

[hansdieter11]

Wie verbesser ich das nun ?
Habe doch eigentlich die Eigenschaften mit xCoord und yCoord.
Gruß

[Sir Rufo]

Zitat von hansdieter11:

Wie verbesser ich das nun ?
Habe doch eigentlich die Eigenschaften mit xCoord und yCoord.
Gruß

Das ist wie mit den Keksen ... habe ich Hunger auf Kekse kann ich

a) welche backen
b) welche kaufen
c) sublimieren (ich mähe mal den Rasen)

backen geht so:

Delphi-Quellcode:

type 
    TKugel = class 
     public 
      y:integer; 
      x:integer; 
      vy:integer; 
      vx:integer; 
      constructor Create; 
      property yCoord:integer read y write y; 
      property xCoord:integer read x write x; 
      property Left : integer read x write x;
      property Top : integer read y write y;
      function getY:integer; 
      function getX:integer; 
      procedure GoUp; 
      destructor Destroy; override; 
     end;

Wenn du etwas Transferleistung besitzt, kannst du

a) die anderen Klassen auch erweitern
b) viel besser, lass die Klassen wie sie sind und benutze die vorgegebenen Eigenschaften (xCoord, yCoord)

[hansdieter11]

Stimmt, muss ja Kugel[r].xCoord benutzen
Ja bin auch blöd

[Sir Rufo]

Zitat von hansdieter11:

Stimmt, muss jaKugel[r].xCoord benutzen
Ja bin auch blöd

Na, ja, diese verdammte unit war aber auch versteckt, bis wir die gefunden hatten ...