Byte to int

[DeddyH]

Wo gibst Du eigentlich die ganzen TPicture-Instanzen aus dem Array wieder frei?

[Kuehter]

"noch" nirgends

habe mich noch nicht damit auseinander gesetzt wie man das wieder frei gibt

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure ClearPictures(var Pictures: Tpicarray);
var
  i: integer;
begin
  for i := Low(Pictures) to High(Pictures) do
    Pictures[i].Free;
  Pictures := nil;
end;

Allerdings würde ich ohne Not keine Arrays von Objektinstanzen verwenden, sondern stattdessen lieber eine TObjectList hernehmen, die verwaltet die enthaltenen Instanzen selbstständig (hatte ich das nicht woanders schon einmal erwähnt)?

[mkinzler]

Ich hatte ihn wieder favon abgebracht, da er Problemen mit den Casts gehabt hat.

Das eigentlich Problem scheint aber mangelndes Grundlagenwissen zu sein.

[Kuehter]

doch das mit der objectlist habe auch schon ausprobiert nur ich weiß nicht wie ich das hin bekomme das ich wenn ich die Objectlist Objekte habe und dann sagen

Delphi-Quellcode:

type
Allrounder : TImage


Allrounder := TImage(Objekte.Items[index]);
Allrounder.Pcture.LoadfromFile(Symbolspeicher[0]);

hat das nicht funktioniert weil er meinte das mit dem TImage das nicht funktioniert

[DeddyH]

Hätte aber eigentlich funktionieren müssen.

Delphi-Quellcode:

procedure TDingens.LoadPicture;
var
  Picture: TPicture;
begin
  Picture := TPicture.Create;
  Picture.LoadFromFile('Irgendeine Datei');
  Objekte.Add(Picture);
end;

procedure TDingens.DisplayPicture(idx: integer);
var
  Picture: TPicture;
begin
  Picture := Objekte[idx] as TPicture;
  SomeImage.Picture.Assign(Picture);
end;

[himitsu]

Wenn man für die Verwaltung, statt des Array eine TObjectList verwendet, dann kann man der Objektliste das Freigeben überlassen. (OwnsObjects)

[DeddyH]

Das sagen wir zwar schon die ganze Zeit, aber: richtig

[mkinzler]

Du kannst doch von Frank nichr verlangen, die vorigen Antworten durchzulesen

[DeddyH]

Kommt nicht wieder vor (ich pin halt ein Widerporst, chleudert mich zu Poden)