Forum: Programmieren allgemein
Delphi
by Mavarik,
5. Feb 2014
Untested!
function MethodIsImplemented(const AClass:TClass;MethodName : string): Boolean;
var
m : TRttiMethod;
begin
Result := False;
m:=TRttiContext.Create.GetType(AClass.ClassInfo).GetMethod(MethodName);
if m<>nil then
Result:=CompareText(AClass.ClassName,m.Parent.Name)=0;
Forum: Programmieren allgemein
Delphi
by Mavarik,
4. Feb 2014
Wo steht das Beispiel?
Mavarik
PS: Gibt es echt kein "hasImplemented(SetFoo)"
Forum: Programmieren allgemein
Delphi
by Mavarik,
3. Feb 2014
Nein, da ich ja nur den Klassentype als Class of habe...
Forum: Programmieren allgemein
Delphi
by Mavarik,
3. Feb 2014
Kann ich auch noch testen, ob AktForm.SetFoo(Self); in TMyForm überladen wurde?
Nach dem Motto AktForm hasImplemented(SetFoo), oder so?
Forum: Programmieren allgemein
Delphi
by Mavarik,
2. Feb 2014
OK Nochmal!
Eine Frage aus der Kategorie noch keinen Kaffee, wo liegt mein Denkfehler?
type
TVater = Class(TForm)
public
Procedure SetFoo(A:TComponent);Virtual,Abstract;
end;
Forum: Programmieren allgemein
Delphi
by Mavarik,
30. Jan 2014
SUPER! Danke...
TFormClass kannte ich bisher noch nicht...:stupid:
Hab das bis heute auch noch nie gebraucht...
Danke auf für das FormFactry Beispiel. Soll so was ähnliches werden.
Grüsse Mavarik