Dynamische Variablen bei TImage ?

[Popov]

@Premaider

Kannst du es bitte unterlassen alte Beiträge nachträglich zu ändern? Wenn du alte Beiträge änderst, ergeben die folgenden Antworten u. U. keinen Sinn.

Zitat von himitsu:

Das stimmt so nicht ganz.

himitsu, ich schätze dich sehr, aber man sollte nicht immer antworten, zumindest dann nicht wenn die Antwort nur verwirrt. Also wir haben hier eine blutigen Delphianfänger, ich habe klargestellt, dass Delphi in reinform nicht für Spiele gedacht ist, du hast klargestellt, dass es so nicht ganz stimmt und hast du auf eine Fremdkomponente verwiesen. Die Verwirrung ist komplett, nutzt aber nichts. Delphi wurde als Enwicklungsumgebung für Business Anwendungen konzipiert und am Anfang so verkauft. Ich kann mich noch an die Präsentationen von Delphi 1 erinnern die fast 100% auf Datenbahnentwicklungen ausgelegt waren, so dass viele davon ausgingen, dass es sich um ein Datenbankentwicklungstool handelt (was einer der Gründe wer wieso die Startwerbung nicht so einschlug, man hat einfach ein "flaches" Bild verkauft). Wenn Delphi auf Spiele ausgelegt wäre, dann hätten wir so was wie Sprite Komponenten.

Nur weil Delphi so mächtig ist, dass man sie so erweitern kann, dass man damit AUCH Spiele programmieren kann, bedeutet es nicht, dass Delphi im ersten Sinne nicht für Spiele gedacht ist.

[Premaider]

Zitat von Popov:

@Premaider

Kannst du es bitte unterlassen alte Beiträge nachträglich zu ändern? Wenn du alte Beiträge änderst, ergeben die folgenden Antworten u. U. keinen Sinn.

Okay werde ich :S
Ich bin ja selbst im Moment ganz verwirrt, da ich noch nie Bitmaps verwendet habe.
Mir würde es im Moment am meisten helfen wenn ihr meinen Code anschaut und mit
sagt was ich ändern sollte :S

[Popov]

Was ist noch mal das aktuelle Problem?

[Premaider]

Zitat:

Ich habs mal so weit gemacht, wie ichs begriffen hab

Delphi-Quellcode:

if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
  begin
    Score:=Score+1;
    Ziel.Top:=10+Random(Form1.ClientHeight-10);
    Ziel.left:=10+Random(Form1.ClientWidth-10);
    MyBitmap := BitMap[aVertikal].create;
    MyBitmap := BitMap[aHorizontal].create;
    BitMap[aVertikal].LoadFromFile('GegnerV.bmp');
    BitMap[aHorizontal].LoadFromFile('GegnerH.bmp');
    Gegner[0].Position := Point(100, 20);
    Gegner[0].Ausrichtung := aVertikal;
    with Gegner[0] do
    Canvas.Draw(Position.X, Position.Y, Bitmap[Ausrichtung]);
  end;

Aber ich bekomme wieder Fehler

Weiter weiß ich jetzt auch garnicht, ich gehe jetzt ersteinmal schlafen, und hoffe, dass bis morgen eine Lösung da ist ;D
Und danke schonmal für die ganze Hilfe bis jetzt

Bis morgen dann

[Premaider]

Mhh, schade. Bis jetzt ist ja garnichts neues da

[DeddyH]

Sowas aber auch. "Ich bekomme Fehler" sollte doch aussagefähig genug sein, damit jeder auf den ersten Blick erkennt, was Du falsch machst. Vielleicht solltest Du Deine Art der Fragestellung einmal überdenken.

[edit]

Zitat:

Delphi-Quellcode:

MyBitmap := BitMap[aVertikal].create;
MyBitmap := BitMap[aHorizontal].create;

Was soll dieser Code denn Deiner Meinung nach tun? Abgesehen davon, dass Du den Konstruktor der Klasse TBitmap aufrufen musst und nicht irgendeines Array-Elements vom Typ des zu erzeugenden Objekts, würdest Du ja mit dem 2. Aufruf die Variable MyBitmap wieder überschreiben und könntest somit die zuerst erzeugte Instanz gar nicht mehr freigeben. [/edit]

[Premaider]

Zitat von DeddyH:

Sowas aber auch. "Ich bekomme Fehler" sollte doch aussagefähig genug sein, damit jeder auf den ersten Blick erkennt, was Du falsch machst. Vielleicht solltest Du Deine Art der Fragestellung einmal überdenken.

[edit]

Zitat:

Delphi-Quellcode:

MyBitmap := BitMap[aVertikal].create;
MyBitmap := BitMap[aHorizontal].create;

Was soll dieser Code denn Deiner Meinung nach tun? Abgesehen davon, dass Du den Konstruktor der Klasse TBitmap aufrufen musst und nicht irgendeines Array-Elements vom Typ des zu erzeugenden Objekts, würdest Du ja mit dem 2. Aufruf die Variable MyBitmap wieder überschreiben und könntest somit die zuerst erzeugte Instanz gar nicht mehr freigeben. [/edit]

Das ist ja eigendlich das Problem.
Es müsste so sein

Delphi-Quellcode:

begin
x:=x+1;
MyBitmapV[X] := BitMap[aVertikal]
BitMapH[X][aHorizontal].create;
end;

x: Integer; <-Global
x:=0; <-Form1.create

Nur das geht ja so nicht, und dann bin ich völlig verwirrt auf die Lösungsvorschläge der Anderen eingegangen