Image in Obejctlist laden

[mkinzler]

Du musst auf den entsprechenden Typ Casten.

[Kuehter]

Wäre das so Richtig?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:  TObject);
type
    Allrounder = TImage;

var
    rec : TIntegerarray;
  // caller : Tpicarray;
    saferend: TByteDynArray;
    firstIcon: Tstringarray;
    counter: integer;
    testvariable : TObjectlist;


begin

   SetLength(saferend,3);
   rec := bedingung;
   firstIcon := Symbolspeicher;
       
Allrounder := TImage(Imageloader.Items[0]);
Allrounder.Picture.LoadFromFile(firstIcon[0]);

end;

[mkinzler]

Grundsätzlich ja. Allerdings bergen harte Casts einige Gefahren für AV. Man muss sich sicher sein, dass das Objekt wirklich von diesem Typ ist. Wenn Du aber nur Imgaes in diesem Typ hast, kann man das so machen, wobei sich mir dann die Frage aufdrängt, warum man diese dann nicht als Liste mit Images verwaltet, sondern als TObject.

[Kuehter]

du meinst ImageList, habe ich schon versucht, die Grafik verzieht da mega und die werden als icon ausgegen. die bilder sind dann zu klein die haben ein Standart von 81 zu 81.

Aber wenn du weißt wie es geht ich lasse mich gerne belehren.
Dafür frage ich hier ja auch

[mkinzler]

man kann dort einstellen, wie groß die Images sein sollen.
Ich dachte aber eher an eine List mit Images oder noch einfacher einem (dynamischen) Array.

[Kuehter]

Delphi-Quellcode:

 function picload: Tpicarray;

var counter: integer;
    i,j,t: integer;

begin
  SetLength(result,9);

  for counter := Low(result) to high(Result) do
  begin
    Result[counter] := TPicture.Create;
    Result[counter].LoadFromFile('Symbolik_' + inttoStr(counter) + '.jpg');
  end;

habe ich schon versucht das Problem ist ich kann das anders besser gebrauchen.

aus irgend einen grund funktioniert das mit dem Allrounder nicht der meint zu mir

[Fehler] Unit1.pas(303): Der linken Seite kann nichts zugewiesen werden

[Fehler] Unit1.pas(303): Inkompatible Typen: 'Class reference' und 'TImage'

[Kuehter]

Könntest du mir bitte sagen wir ich TImage1-27 in ein Array bekomme
weil, Variablen usw ist mir klar und ich weiß auch wie ich ein Image Array erzeuge. Aber die Objekte an sich in ein Array zu packen ist mir in Delphi fremd