Statyczne klasy w Delphi (Win32)

Question

Czy w Delphi (Win32) można zadeklarować całą klasę (nie tylko funkcję klasy) jako statyczną?

Answer 1

Zakładam, że masz na myśli klasy statyczne, takie jak w .net (i nie "statyczne" jak w tradycyjnym Delphi/Native) - a odpowiedź brzmi "nie".

Answer 2

Nie jestem do końca pewien, co rozumiesz przez "klasę statyczną". Możesz zadeklarować klasę, która ma tylko metody klasy, więc te metody można wywołać bez tworzenia instancji klasy.

TSomeClass.SomeMethod; 

Czy tego chcesz?

Answer 3

Nie.

W zależności od potrzeb, jeśli dla potrzeb kodu, w niektórych przypadkach można go zamienić na obiekt wzoru Singleton.

W celu zapoznania się z tą implementacją, polecam this guide, która obejmuje prawie każdą wersję delphi, ale jeśli używasz Delphi 2010, możesz również użyć nowego class Constructors/Destructors w celu uzyskania lepszych wyników.

Answer 4

Można także utworzyć nową jednostkę o nazwie uDG_Utils na przykład, zdefiniować klasę, zdefiniować globalną zmienną dla tej klasy, aw sekcji inicjalizacji i finalizacji zarządzać konstruktorem klasy i destruktorem. Teraz wszystko, co musisz zrobić, to nazwać go mySuperDuperClass.SuperMethod ...

Answer 5

Można utworzyć klasę, która zawiera tylko statyczne metody. Jeśli musisz utrzymywać pewien stan, to zmienne stanu powinny być przekazywane jako parametry var. Nie ma sposobu, aby „właściwie” dostęp do zmiennych statycznych inne niż posiadające zestaw zmiennych globalnych w dziale realizacji klasy poza zakresem klasy, na przykład:

UNIT TestUnit; 

INTERFACE 

Type 
    TStaticClass = Class 
    public 
    procedure Foo(var Bar:String); static; 
    end; 

IMPLEMENTATION 

var 
    LastBar : String; // the last bar 
    LastRes : string; // the last result 

Procedure TStaticClass.Foo(var Bar:String); 
begin 
    if Bar <> LastBar then 
    LastRes := SomeCPUExpensiveProcess(Bar); 
    LastBar := Bar; 
    Bar := LastRes; 
end; 

INITIALIZATION 
    LastBar := ''; 
    LastRes := SomeCPUExpensiveProcess(''); 
END. 

Answer 6

(Tak, wiem, że ten wątek jest stary, ale pomyślałem, że opublikuję to dla potomności.)

Zwrócono uwagę, że funkcje klasowe i procedury klasowe implementują metody statyczne. Dodam jednak, że następnym zauważalnym zachowaniem klasy statycznej (w porównaniu z klasą Delphi) jest to, że klasa statyczna nie może być utworzona.

Klasy Delphi otrzymują publiczny domyślny (bez parametrów) konstruktor, jeśli nie zostanie określony, więc można utworzyć instancję dowolnej klasy. Jeśli jawnie zadeklarujesz jeden lub więcej konstruktorów, ten konstruktor nie zostanie dostarczony.

Możesz usunąć wszystkie konstruktory, deklarując konstruktor w prywatnej lub chronionej sekcji swojej klasy. To usunie twojego konstruktora z zakresu konsumenta. Teraz jest tylko jeden konstruktor, nie jest widoczny i nie można utworzyć instancji klasy.

Przykład:

type 
    TMyStaticClass = class(TObject) 
    private 
    // Hide the default constructor, suppressing hint H2219. 
    {$HINTS OFF} constructor Create; {$HINTS ON} 
    public 
    class procedure Method1; // A static method 
    end; 

implementation 

constructor TMyStaticClass.Create; 
begin 
    // Do nothing. This cannot be called. 
end; 

class procedure TMyStaticClass.Method1(); 
begin 
    // Do something here. 
end; 

Jeśli masz jedną z nowszych wersjach Delphi, można również rozważyć uszczelnianie klasę po prostu być nieco bardziej właściwe. Klasa potomna MOŻNA utworzyć instancję, jeśli Twój konstruktor jest chroniony, a nie prywatny.

---

Edit

Oto alternatywa, inspirowany przez Kena, nowsze wersje Delphi (które obsługują klas zamkniętych), który nie ponosi wskazówkę kompilatora. To wciąż nie jest doskonałe rozwiązanie, ale oto jest.

unit Unit1; 

interface 

type 
    TMyStaticClass = class sealed (TObject) 
    protected 
    constructor Create; 
    public 
    class procedure Method1; // A static method 
    end; 

implementation 

constructor TMyStaticClass.Create; 
begin 
    // Do nothing. This cannot be called. 
end; 

class procedure TMyStaticClass.Method1(); 
begin 
    // Do something here. 
end; 

end. 

Answer 7

chciałbym użyć klasy abstrakcyjnej (nie mylić z abstrakcyjnej metody w klasie), aby zapobiec jego wystąpienia jest zamiast obniżania konstruktora chronione:

TMyClass = class abstract 
public 
    class procedure DoStuff; static; 
end; 

To wymusi wzór singletonowy i zapobiegać okresowi tworzenia.

Answer 8

Wygląda poszukiwaniu użytkownika za „funkcje klasy”:

type 
TSomeClass = class 
class procedure MyFunction(...); 

To jest jak metoda statyczna, więc nazywają go:

TSomeClass.MyFunction(...);