Delphi-Quellcode:
type
TCountryCodeHelper = record helper for TCountryCode
private const
cOleEnums: array[TCountryCode] of Cardinal = (
CountryCode2_unk,
CountryCode2_AL,
CountryCode2_AD,
...
);
function GetAsOleEnum: Cardinal;
function GetAsString: string;
procedure SetAsOleEnum(const Value: Cardinal);
procedure SetAsString(const Value: string);
public
property AsOleEnum: Cardinal read GetAsOleEnum write SetAsOleEnum;
property AsString: string read GetAsString write SetAsString;
end;
Hallo Uwe,
ich nutze sowas in der Art, aber verzichte auf die Properties.
Delphi-Quellcode:
type
TCountryCodeHelper = record helper for TCountryCode
function AsOleEnum : Cardinal;
function AsString : String;
end;
Welchen Vorteil hätte ich, wenn ich an dieser Stelle Properties benutze?
Ich meine Funktionen machen das genauso, oder übersehe ich da etwas?
Sorry, es ging Dir ja um Setter und Getter, dann ist es klar.
Ich mache das mehr so, weil es nicht immer passende Konvertierungen gibt.
Delphi-Quellcode:
type
TCountryCodeHelper = record helper for TCountryCode
function ToOleEnum : Cardinal;
function TryFromOleEnum( AVal : Cardinal ) : Boolean;
function ToString : String;
function TryFromString( AVal : String ) : Boolean;
end;