Windows Codepages - Kernel32.dll - EnumSystemCodePages

[arcticwolf]

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;