Статическое ключевое слово Delphi имеет какую-либо точку в коде только для собственного компонента?
При попытке перечислить свойства для записи нового кода против объекта, я рекомендовал бы использовать отладчик как Firebug для наблюдения их визуально.
Другая удобная техника должна использовать Object.toJSON Прототипа () для сериализации объекта к JSON, который покажет Вам обоим имена свойства и значения.
var data = {name: 'Violet', occupation: 'character', age: 25, pets: ['frog', 'rabbit']};
Object.toJSON(data);
//-> '{"name": "Violet", "occupation": "character", "age": 25, "pets": ["frog","rabbit"]}'
2 ответа
Статические методы класса не имеют аргумента скрытой ссылки на класс . Из-за этого они совместимы по назначению с обычными указателями на старые функции и поэтому могут использоваться для взаимодействия с Windows API и другими C API. Пример:
type
TForm = class
private
class function NonStaticWndProc (wnd: HWND; Message: Cardinal;
wParam: WPARAM; lParam: LPARAM): LRESULT;
class function StaticWndProc (wnd: HWND; Message: Cardinal;
wParam: WPARAM; lParam: LPARAM): LRESULT; static;
procedure RegisterClass;
end;
procedure TForm.RegisterClass;
type
TWndProc = function (wnd: HWND; Message: Cardinal;
wParam: WPARAM; lParam: LPARAM): LRESULT;
var
WP: TWndProc;
WindowClass: WNDCLASS;
begin
//WP := NonStaticWndProc; // doesn't work
WP := StaticWndProc; // works
// ...
TWndProc (WindowClass.lpfnWndProc) := WP;
Windows.RegisterClass (WindowClass);
end;
(Конечно, вы могли бы вместо этого использовать глобальную функцию, но кроме глобальных функций, статические функции класса имеют четкую связь с классом.)
со статикой, это немного быстрее. В методе First есть одно add esp, -8 , которого нет во втором.
program staticTest;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TExample=class
class procedure First;
class procedure Second; static;
end;
{ TExample }
class procedure TExample.First;
var
i : Integer;
begin
i:=61374;
end;
class procedure TExample.Second;
var
I : Integer;
begin
i:=44510;
end;
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
TExample.First;
TExample.Second;
end.
Первое:
staticTest.dpr.20: begin
00408474 55 push ebp
00408475 8BEC mov ebp,esp
00408477 83C4F8 add esp,-$08 ;This is the line I mentioned
0040847A 8945FC mov [ebp-$04],eax
staticTest.dpr.21: i:=61374;
0040847D C745F8BEEF0000 mov [ebp-$08],$0000efbe
staticTest.dpr.22: end;
00408484 59 pop ecx
00408485 59 pop ecx
00408486 5D pop ebp
00408487 C3 ret
Второе:
staticTest.dpr.27: begin
00408488 55 push ebp
00408489 8BEC mov ebp,esp
0040848B 51 push ecx
staticTest.dpr.28: i:=44510;
0040848C C745FCDEAD0000 mov [ebp-$04],$0000adde
staticTest.dpr.29: end;
00408493 59 pop ecx
00408494 5D pop ebp
00408495 C3 ret
00408496 8BC0 mov eax,eax
Короче говоря - я не вижу причин.