Findcomponent löst Exception aus???

[Thorben86]

Hi,
Ich will auf eine Image-Komponente mit Findcomponent zugreifen. Da dies jedoch immer eine Exception ausgelöst hat, hab ich 2 Showmessages an den Anfang gesetzt. Die erste wird angezeigt und dann kommt ne Exception(Ungültige Typenumwandlung)

Der Name der Komponente ist im_st1nr1.
Stapel[1].Anzahl ist auch 1.
Hab ich irgend einen Fehler übersehen?, oder warum klappt das nicht?

Delphi-Quellcode:

showmessage('s');
showmessage((Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl) ) as TImage).name);

Edit: Es kommt Ne Exception(Ungültige Typenumwandlung), nicht zugriffsverletzung

[omata]

Moin,

wenn FindComponent die Komponente nicht findet, wird ein nil-Zeiger zurückgegeben.
Du solltest also immer prüfen, ob FindComponent auch eine Komponente liefert.

also...

Delphi-Quellcode:

var Image:TImage;
begin
  Image:=Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl)) as TImage;
  if assigned(Image) then
    showmessage(Image.name);
end;

Ausserdem solltest du, wenn du schon Text mit einer ShowMessage ausgibst vielleicht den String ausgeben, den du an FindComponent übergibst, dann würdest du nämlich auch bestimmt sehen, dass die Komponente du du finden möchtest nicht existiert.

MfG
Thorsten

[Thorben86]

Ja, das könnt ich machen, aber das hilft mir bei meinem problem auch nicht, da die Komponente ja vorhanden ist.

[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

[Thorben86]

Thx @ alcaeus: Ich hab jetzt das Problem gefunden, ich hatte die Images durch Shapes ersetzt

[Thorben86]

Aber jetzt klappt es irgendwie nicht, den Namen davon dann umzuändern.
Klappt das generell nicht oder hab ich schon wieder nen Fehler eingebaut?

(Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape).Name := 'im_st'+ InttoStr(Zielstapel) + 'nr' + InttoStr(Stapel[Zielstapel].Anzahl + 1);

[alcaeus]

Hi Thorben86,

sag mal was denn nicht funktioniert. Gibts eine Fehlermeldung? AV?

Greetz
alcaeus

[Thorben86]

Sry, es kommt ne Exception, dass es eine Zugriffsverletzung gibt.

[alcaeus]

Hi Thorben86,

versuch mal, das Ergebnis von FindComponent in einer Variable abzuspeichern und anschließend den Namen zu ändern. Vielleicht gibts Probleme, weil du ja indirekt der Funktion was zuweist.

Greetz
alcaeus

[Thorben86]

Ahmm, könntest du vielleicht mal en beispiel machen, wie ich das mache, weil wenn ich den dateinamen auf ner Variable hab, kann ich den zwwar auf der variable ändern, aber wie änder ich den dann bei der Kompo