Wie schreibt man in die Unit beim Programmablauf??

[Luckie]

Um hier mal was klar zustellen: Die DelphiPraxis ist kein Dienstleistungsunternehmen. Es ist ein kostenloses Angebot von Daniel, der euch hier eine Diskussionspaltform für Fragen bezüglich Delphi anbietet. Alle Mitglider der Community beantworten hier Fragen anderer Mitglieder auf freiwilliger und uneigennütziger Basis. Wann hier wie kompetent geantwortet wird, hängt allein von den Community-Mitgliedern ab. Da derjenige, der dir helfen kann und auch bereit dazu ist, nicht alle fünf Minuten die Beiträge überprüft, dürfte wohl klar sein.

Desweiteren gibt es noch andere Möglichkeiten Hilfe zu seinem Problem zu bekommen. Da wäre als erstes mal die Delphi Hilfe zu nennen, dann gibt es noch Bücher (Ich würde dir mal ein Grundlagenbuch empfehlen.), dann gibt es noch die Forensuche (Das Theam hatten wir schon oft genug.) und schlußendlich gibt es immer noch Google.

[Kihaku]

Ist doch gut jetzt, ok?
Ich hab nen blöden Kommentar abgelassen, hab eingesehen das es dumm war, und fertig.

Lass doch bitte lieber wieder aufs eigentliche Thema zurück kommen.

Also das problem ist immer noch das gleiche wie weiter oben beschrieben.


Cu

[Kihaku]

Hi,

also um das ganze mal besser zu erklären:

Ich habe jetzt zb folgendes Sprite in DELPHIX erstellt:

Delphi-Quellcode:

  TStar = class(TImageSprite)
    public
      constructor Create(AParent: TSprite); override;
    end;

das hier habe ich bei variabeln eingetragen:

[/delphi] Star : TStar;[delphi]


Dann rufe ich die constructor anweisung auf:

Code:

constructor TStar.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := Form1.DXImageList1.Items.Find('star');
  Width := Image.Width;
  Height := Image.Height;
  Visible := True;
end;

In der Collisionsanweisung steht dann am ende speziell für diesen gegenstand folgendes:

Code:

procedure TKirby.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  {Hier dann der rest des codes}
  if sprite is TStar then
  begin
    score := score + 10;
    sprite.dead;
  end;
end;

Und auf dem Start Knopf, wo das Level gestartet wird, steht dieses hier mit dabei:

Code:

...
  with TStar.Create(DXSpriteEngine1.Engine) do
  begin
    x := 300;
    y := 200;
    Z := 2;
  end;
...

Jetzt zu meiner Frage.
Wie kann man das Zeugs alles am besten IM Game generieren, also so ne art editor. das ich jetzt auf nen knopf klicke, wo durch ich dieses TStar Object bekomme, und ihn plazieren kann, aber soviel erstellen wie ich möchte. Also das ich nicht nur einen plazieren kann sondern halt zb unendlich. Und das er Automatisch sagt, welcher Star das ist, und automatisch die ganzen funktionen in eine Unit reinschreibt.


Ist sowas möglich??




Cu

[sakura]

Ja und Nein.

Deine Fragestellung zeigt einen grundlegenden Gedankenfehler auf. Du kannst während des Programmablaufes die Unit nicht ändern. Wäre auch unsinnig. Aber was Dir helfen würde, wäre Dich mal in die Arbeit mit entweder array, dynamische arrays bzw mit TObjectList or TList einzufriemeln. Damit kann man solche Probleme lösen.

...:cat:...

P.S. DirectX ist nicht der beste Startpunkt für solche Übungen.

[Kihaku]

Hi,

ok danke, dann werde ich mir das vorher mal anschaun und lernen...



Womit sollte man denn deiner meinung nach anfangen? Ich meine jetzt auch um Spiele damit zu programmieren, aber ich möchte erst auch nur 2d games erstellen.


Cu

[sakura]

Du kannst gerne anschließend am Game weiterarbeiten, was ich meinte war, daß Du da Konzept der dynamischen Arrays, bzw. der Objektlisten vorher einfach mal an einem Dummy testen solltest ;-)

...:cat:...

[Kihaku]

Hi,

ahso ^^. ok mach ich, vielen dank nochmal!

Cu