Danke himitsu!
Zitat:
Sie muß eine "alleinstehene" Function sein
Da hätte ich auch selber drauf kommen können.
Das mit der globalen Variable ist mir auch ein Dorn im Auge, aber ich wusste nicht wie ich das anders lösen kann. Kannst Du mir das Konzept mit der
Zitat:
"static" Class-Function
bitte erläutern? Wie genau muss ich so eine Klasse deklarieren? Ich habe mal soetwas versucht, aber nicht zum laufen bekommen.
Delphi-Quellcode:
Type TWindowsCodepages = class
strict private
class var IList : TArray<String>;
class function GetCodepageName(Codepage:Cardinal) : String;
class function EnumCodePagesProc(CodePage:PWideChar) : Boolean; static;
strict protected
class function GetEntry(Index:integer) : String; static;
class procedure SetEntry(Index:Integer; uString:String); static;
class function GetCount : Integer; static;
public
class property List[Index:Integer]:String Read GetEntry Write SetEntry;
class property Count:Integer Read GetCount;
class function Get_Supported : TArray<String>;
end;