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,

Delphi-Quellcode:

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 :wall: :wall: :wall: :oops:

:dp:

[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?

Delphi-Quellcode:

(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

[alcaeus]

Hi Thorben86,

du sollst das Ergebnis von FindComponent abspeichern, und nicht den Namen des Ergebnisses :zwinker:
Als Beispiel:

Delphi-Quellcode:

var
  c: TComponent;
begin
  c := TComponent(Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl)));
  c.Name := ...
end;

Greetz
alcaeus

[Thorben86]

Aso, dabei kommt aber glaub ich die gleiche Exception raus(Es kommt auf jedenfall auc hne Zugriffsverletzung raus)

[Thorben86]

Hmm, also bei einem durchgang klappt es irgendwie jetzt auf einmal. Bei dem 2. durchgang kommt jetz an der anderen stelle ne Exception :gruebel: .

Die Komplette FDunktion:

Delphi-Quellcode:

var Kompo:TComponent;
begin
Kompo:=TComponent(Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape);
Showmessage(inttostr(2)); //Das wird noch angezeigt, dann kommt die Exct

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

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

inc(Stapel[Startstapel].Anzahl,-1);
inc(Stapel[Zielstapel].Anzahl);
Kompo.Name:='im_st'+ InttoStr(Zielstapel) + 'nr' + InttoStr(Stapel[Zielstapel].Anzahl + 1);
end;

[SirThornberry]

es wurde schon zig mal geschrieben das du das Ergebnis von TComponent erstmal auf eine Variable zuweisen sollst und diese dann auf ungleich "nil" überprüfen sollst. Wenn dir FindComponent bei

Delphi-Quellcode:

(Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape)

zurückgibt weil die Komponente mit dem Namen nicht existiert ist klar das dann eine Exception kommt.
richtiger ist

Delphi-Quellcode:

var LShape: TShape;
begin
  LShape := Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl));
  if LShape <> nil then
  begin
    LShape.Left:=Stapel[Zielstapel].left;
  end;

Warum schreibst du überhaupt

Delphi-Quellcode:

Kompo:=TComponent(Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape);

Wenn du den Wert den du auf Kompo zugewiesen hast dann nicht nutzt? Zu dem Ist es überflüssig das ganze nach TShape zu casten wenn du es dann der Variablen "kompo" zuweist die vom Typ "TComponent" ist. Besser wäre die Variable "Kompo" als "TShape" zu declarieren und dann mit "Kompo" weiterzuarbeiten und nicht immer wieder "FindComponent" zu nutzen da dies auch ein Performanceeinbruch ist.

[Thorben86]

Sry, dat ich nit früher antworten konnt, ming I-net war seit 10 aus :? .
Hatte das eben auch schon geänert, aber das bringt mir nichts, da es ne Exception gibt, wenn ich die Procedure zum 2. mal aufrufe(die Wird in ner Rekursiven Procedure mit aufgerufen) und auf die Variable zugreife(also z.b. Kompo.Left)

Edit: Beim 2. durchlauf wird Kompo irgendwie nil, nur wieso versteh ich nicht, da dürfte doch eigentlich kein unterschied sein.

Jetzt sieht der Text so aus (beim 2. Durchlauf ist Kompo=nil)

Delphi-Quellcode:

var Kompo:TShape;
begin
Kompo:=(Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape);

if(Kompo=nil)then
Showmessage('nil');
Showmessage(inttostr(3));

Kompo.Left:= Stapel[Zielstapel].left - (Kompo.Width div 2);// - (Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape).width;
Kompo.Top:= Stapel[Zielstapel].Top - (15 * (Anzahl+1)) ;
inc(Stapel[Startstapel].Anzahl,-1);
inc(Stapel[Zielstapel].Anzahl);
Kompo.Name:='im_st'+ InttoStr(Zielstapel) + 'nr' + InttoStr(Stapel[Zielstapel].Anzahl);
Showmessage(Kompo.name);

[Robert_G]

Da gibt's IMHO nur 2 Sachen:

1. Ich lasse mich jetzt mal nicht an FindComponent aus. :roll:Klick
2. Was hindert dich daran dem Elementtypen deiner Collection (Stapel) noch eine Refferenz auf das dazugehörige TShape zu verpassen?

Punkt 2 macht Punkt 1 unnötig...

[Thorben86]

Ahm, bei Punkt 2 wüsst ich nicht, was ich machen müsste, aber es klappt jetzt auf jedenfall, irgendwie hat der vorher die Anzahl falsch eingelesen.