Hallo

Es hat sich ein seltsames Problem im Code ergeben! Es hat die letzten 100 Male wunderbar funktioniert, jetzt meckert Delphi. Es wurde NICHTS am Code verändert bevor das Problem aufgetreten ist.

markieren

Delphi-Quellcode:

 
if Sender=BtnExecToTab then begin
         Frame := ((Owner as TSynPage).Owner as DbExplorerMain).CreateFrame; //hier der Fehler
         Frame.MemoSQL.Lines.Text := U2S(SQL);
         end;

Der erste Cast ist imo nicht notwendig.
Frame := (Owner.Owner as DbExplorerMain).CreateFrame; Ist die Strukur auch wirklich so? (Eigentümer des Eigentümers?). Oft ist die Form direkt Besitzer. Oder meinst Du eigentlich Parent?

markieren

Delphi-Quellcode:

    if Sender = BtnExecToTab then
    begin
      ShowMessage(Owner.ClassName);
      ShowMessage(Owner.Owner.ClassName);
// Frame := ((Owner as TSynPage).Owner as DbExplorerMain).CreateFrame; // hier der Fehler
// Frame.MemoSQL.Lines.Text := U2S(SQL);
    end;

Was steht denn in den MessageBoxen, wenn du dir das obige mal ausgeben lässt?

Hmmm, DbExplorerMain klingt nicht wie ein Klassenname - der würde ja per Konvention TDbExplorerMain heißen. Hast du vielleicht doch das arme T gemeuchelt?

Problem hat sich gelöst, das T vor dem db war wohl schnell Brötchen holen. Ich danke euch!

Zitat:

Es wurde NICHTS am Code verändert bevor das Problem aufgetreten ist.

...ich hab nichts gemacht. Das sagen alle...speziell die Kunden.

Zitat von haentschman:

Zitat:

Es wurde NICHTS am Code verändert bevor das Problem aufgetreten ist.

...ich hab nichts gemacht. Das sagen alle...speziell die Kunden.

"Also bei mir hat das funktioniert"