Einzelnen Beitrag anzeigen

Benutzerbild von guinnes
guinnes

Registriert seit: 28. Feb 2007
Ort: Bottrop
265 Beiträge
 
Delphi 5 Enterprise
 
#2

AW: Klassen-Funktion benutzen, ohne die Klasse zu erstellen

  Alt 18. Nov 2010, 16:53
Du willst mich nicht verstehen
Das mag so sein, oder du mich nicht ?
Es ist schon ein Unterschied, ob in der Exe das steht :
Delphi-Quellcode:
DreckMain.pas.78: Caption := fClass.Foo(S);
004666AD 8D4DF8 lea ecx,[ebp-$08]
004666B0 8B55FC mov edx,[ebp-$04]
004666B3 8B83E0020000 mov eax,[ebx+$000002e0]
004666B9 E81AFFFFFF call TMyClass.Foo
004666BE 8B55F8 mov edx,[ebp-$08]
004666C1 8BC3 mov eax,ebx
004666C3 E8F4CCFBFF call TControl.SetText
oder das :
Delphi-Quellcode:
DreckMain.pas.77: if fClass <> nil then
004666AE 8BB3E0020000 mov esi,[ebx+$000002e0]
004666B4 85F6 test esi,esi
004666B6 7417 jz TForm1.Button1Click + $47
DreckMain.pas.78: Caption := fClass.Foo(S);
004666B8 8D4DF8 lea ecx,[ebp-$08]
004666BB 8B55FC mov edx,[ebp-$04]
004666BE 8BC6 mov eax,esi
004666C0 E813FFFFFF call TMyClass.Foo
004666C5 8B55F8 mov edx,[ebp-$08]
004666C8 8BC3 mov eax,ebx
004666CA E8EDCCFBFF call TControl.SetText
Vor allem, weil die Funktionalität gleich ist
Glückauf
  Mit Zitat antworten Zitat