Liste von Tbitmaps als array of .... speichern

[bernhard_LA]

ist dieser Ansatz um eine Bildliste über arrays zu speichern falsch ?
mein Testprogramm weigert sich die bmps zu erzeugen, der Rest funktioniert ohne Probleme .

Delphi-Quellcode:

meinRecord = record
   x : Integer ;
   y : Integer;
   Name : String; 
   Datum  : Date; 
   ....
   bmp  : TBitmap 
end ;


meinerecords = array  of meinRecord;



for  i:= 0 to 5 do 
  begin 
    meinerecords[i].bmp.create;   //  TBitmap.create 
  end:

[venice2]

Sorry vergiß es war am Thema vorbei.

[Klaus01]

Delphi-Quellcode:

for i:= 0 to 5 do
  begin
    meinerecords[i].bmp := TBitmap.Create(nil);
  end:

so sollte es tun, wenn Dein Array hier schon 6 Elemente hat.

Grüße
Klaus

[bernhard_LA]

Fehler lag an anderer Stelle im Code, Liste wurde gelöscht ..... , danke für den Support :-)
TBitmap.create(nil) geht nicht

Delphi-Quellcode:

for i:= 0 to 5 do
  begin
    meinerecords[i].bmp := TBitmap.create ; 
  end;

[generic]

Das was Klaus schreibt ist schon gut.

Code:

meinerecords = array of meinRecord;

Dein Array ist aber hier dynamisch. D.h. du musst eine Größe vorher mit

Code:

setlength(meinerecords)

setzen.
Die For-Schleife würde ich dann auch dynamische machen in Sinn von

Code:

for i:=low(meinerecords) to high(meinerecords) do

Dann noch kurz die Erklärung zu Klaus

Code:

meinerecords[i].bmp.create; // TBitmap.create

Das Array bzw. der Record der mit I angesprochen wird, enthält einen Zeiger bmp.
Diese MUSS vor der Benutzung gesetzt bzw. da wo der hinzeigt initialisiert werden. Daher macht Klaus

Code:

meinerecords[i].bmp := TBitmap.create

Was eine neue instanz von einer Bitmap erstellt und dann wird dieser Instanzzeiger in bmp gespeichert.

[haentschman]

Moin...:P

Blöde Frage: Wo gibst du die Instanzen (.bmp := TBitmap.Create) wieder frei wenn du das Array mit den Records wegwirfst? :gruebel:

Mach mal in der dpr:

Delphi-Quellcode:

begin
{$IFDEF DEVELOPMENT} // wenn du willst ;-)
  ReportMemoryLeaksOnShutdown := True; // das ist wichtig
{$ENDIF}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
...

...dann siehst du was du nicht weggeräumt hast. :zwinker:

[Blup]

Es ist in Delphi üblich Typ-Namen mit einem großen "T" am Anfang zu kennzeichnen.
Hier wurde z.B. "meinerecords" als Array-Typ vereinbart, aber dann wie eine Variable behandelt.
Solche Fehler kann man so leicht vermeiden.

Statt eines Records mit zusätzlichen Informationen zur Bitmap, warum nicht eine eigene Bitmap-Klasse, die diese Informationen beinhaltet?

Delphi-Quellcode:

TMeinBitmap = class(TBitmap)
private
  Fx: Integer;
  Fy: Integer;
  FName: string;
  FDatum: TDate;
public
  propert x: Integer read Fx, write Fx;
  propert y: Integer read Fy, write Fy;
  propert Name: Integer read FName, write FName;
  propert Datum: TDate read FDatum write FDatum;
end;

Wenn man eine Liste von Objekten verwaltet, dann am besten auch in einer TObjectList:

Delphi-Quellcode:

TMeinBitmapList = class(TObjectList<TMeinBitmap>)
end;