Findcomponent löst Exception aus???

[alcaeus]

Hi Thorben86,

showmessage((Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl) ) as TImage).name); Überprüf mal ob die Kompo überhaupt ein Image ist, also z.B. so:

Delphi-Quellcode:

var
  c: TObject;
begin
  c := Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl));
  if c is TImage then
    ShowMessage(TImage(c).Name);
end;

Greetz
alcaeus