Mehrere TImages mit einer Procedure erstellen

[himitsu]

statt einem Array

Delphi-Quellcode:

type
  TMyImagesArray = array of TImages;  // TMyImagesArray = TArray<TImages>;

function GibMirWasDasGarantiertInEinemSpeicherleckEndet: TMyImagesArray;
// oder
procedure GibMirWasDasGarantiertInEinemSpeicherleckEndet(var ImagesList: TMyImagesArray);

Besser eine Liste mit OwnsObjects=True

Delphi-Quellcode:

var
  Liste: TObjectList<TImages>;

procedure GibMirWas(ImagesList: TObjectList<TImages>);

PS: Gibt es kein 2DBox Box2D mehr im GetIt?
delphi 2d game engine

[edit] Wo kommt Luckie plötzlich her

[Benni0811]

Danke für die Antworten, ich habe jetzt eine Objectlist mit verschiedenen Bildern. Ich habe auch herausgefunden, dass man die Bilder mit der Funktion GetItem aufrufen kann. Wie Kombiniere ich das jetzt mit der Erstellung neuer Bilder mit Einer Stringvariable als Bildnamen und unterschiedlichen Koordinaten?

[haentschman]

Hallöle...
Schau dir mal TDictiorary bzw. TObjectDictonary an. Dann macht du dir eine Datenklasse mit dem Bild und den Eigenschaften welche du möchtest. Dann hast du einen KEY welcher das Bild identifiziert... fertsch.
http://docwiki.embarcadero.com/Libra...jectDictionary

Beim Arbeiten mit Listen kannst über den Index zugreifen. Bei generischen Listen kriegst du das entsprechende Objekt zurück.

Arbeite dich mal durch. Wenn du fragen hast kann ich notfalls ein Beispiel machen.

[Benni0811]

Okay ich habe folgende Fragen:

Ich habe mir eine Klasse erstellt mit Eigenschaften des Bilds(Mithilfe von Google). Die sieht so aus:

Code:

type
    TBild = Class
    private
      x,y,Width,Height:Integer;
      Name:String;
    public
      Constructor Init(x,y,Width,Height:Integer; Name:String);
End;

Wie kann ich dem Bild eine Bitmap zuweisen?
Wie übertrage ich die Daten auf ein neues Bild?
Ist die Klasse überhaupt richtig?

Und wie Kombiniere ich das ganze mit der Objectlist?

Wie du siehst bin ich damit etwas überfordert, ich wäre dir für ein kleines Beispiel sehr dankbar.

Edit: Habe gerade gemerkt, dass beim kompilieren die Fehlermeldung: "[dcc32 Fehler] Unit1.pas(14): E2065 Ungenügende Forward- oder External-Deklaration: 'TBild.Init'" erscheint.

[haentschman]

Hallo...

Knapp daneben...

Ich zeige es anhand eines Beispieles:

Delphi-Quellcode:

TBlubb = class // der Klassenname ist egal
  private
    FImageContent: TBitmap;
    FImageHeight: Integer;
    FImageName: string;
    FImageWidth: Integer;
  public
    property ImageName: string read FImageName write FImageName; // der Name des Bildes für z.b. die Anzeige etc.
    property ImageContent: TBitmap read FImageContent write FImageContent; // das eigentliche Bild incl. der Originalhöhe etc.
    property ImageHeight: Integer read FImageHeight write FImageHeight; // Höhe des Bildes vom Original abweichend -> muß gesetzt werden
    property ImageWidth: Integer read FImageWidth write FImageWidth; // Breite des Bildes vom Original abweichend -> muß gesetzt werden
    // und so weiter
  end;

Du mußt dir das Tutorial aus dem DT anschauen. Du mußt lernen was Klassen sind, was Propertys sind und wie man das verwendet. Sonst kommst du auf keinen grünen Zweig.
https://www.delphi-treff.de/tutorial...phi-crashkurs/ ...Klassen ab Seite 8

Wenn du das verstanden hast, können wir mit der Objectliste weitermachen.
PS: Wenn du Klassen verstanden hast, wirst du auch die Vorteile von Klassen erkennen.

[Benni0811]

Ich habe den Crashkurs jetzt gelesen und außerdem der Klasse die Eigenschaften ImageTop und ImageLeft hinzugefügt:

Delphi-Quellcode:

TBild = Class
    private
      FImageContent: TBitmap;
      FImageHeight: Integer;
      FImageName: string;
      FImageWidth: Integer;
      FImageTop: Integer;
      FImageLeft: Integer;
    public
      property ImageName: string read FImageName write FImageName;
      property ImageContent: TBitmap read FImageContent write FImageContent;
      property ImageHeight: Integer read FImageHeight write FImageHeight;
      property ImageWidth: Integer read FImageWidth write FImageWidth;
      property ImageTop: Integer read FImageTop write FImageTop;
      property ImageLeft: Integer read FImageLeft write FImageLeft;
    End;

Außerdem habe ich in einer Procedure den Eigenschaften verschiedene Werte zugewiesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var Test:TBild;
begin
    Key:='Feld'+IntToStr(Feldx)+','+IntToStr(Feldy);
    Test:=TBild.Create;
    Test.FImageName:=Key;
    Test.FImageHeight:=Feldsize;
    Test.FImageWidth:=Feldsize;
    Imagelist1.GetBitmap(0,Test.FImageContent);
end;

Feldx und Feldy sind Variablen zur bestimmeug der Position des Feldes, Feldsize ist die Konstante die die Größe der Felder festlegt.

Wie kombiniere ich das jetzt mit der TObjectlist?

[Jim Carrey]

Zitat von Benni0811:

Wie kombiniere ich das jetzt mit der TObjectlist?

Also ohne Generics (ja, haut mich), müsstest du jetzt eine TObjectList irgendwo erstellen und sie füllen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 MeineObjectList: TObjectList;
 Test: TBild;
begin
 MeineObjectList := TObjectList.Create;

 Key := 'Feld'+IntToStr(Feldx)+','+IntToStr(Feldy);
 Test := TBild.Create;
 Test.FImageName:=Key;
 Test.FImageHeight:=Feldsize;
 Test.FImageWidth:=Feldsize;
 Imagelist1.GetBitmap(0,Test.FImageContent);

 MeineObjectList.Add(Test);

 // Irgendwo musst du dann auch die ObjectListe wieder freigeben.
end;

Ich habe das jetzt nicht getestet aber das müsste doch eigentlich so funktionieren, oder?