TypeInfo, TypeIdentifier

type
  TMyType = (class);

  TmyTypeClass = class of Tmytype;
----------------------

function MyFunction(T: TmyTypeClass): Pointer
begin
end;


/Sådan :)

Hej

problemet er at TMyType ikke er en classe. TMyType er af typen enum, som den er erklæret ovenfor.

Jeg vil lige uddybe hvorfor jeg spørger, og hvad jeg skal bruge functionen til:


Jeg har forskellige slags enumerated typer:

TMyType = (Ja, Nej);
TMyType1 = (Jan, Feb, Mar...)
TMyType2 = (Sommer, ForAAr, Vinter, EfterAAr)

og veriablerne:

Var MyType: TMyType;
    MyType1: TMyType1;
    MyType2: TMyType2;
   
Desuden har jeg en variable streng:

var Str: string;

som indeholder ordet 'Ja';

Denne vil jeg lave om til enumerated, dvs jeg vil sætte variablen MyType efter indeholdet i Str.

Man kan gøre dette således:

MyType:=  TMyType(GetEnumValue(TypeInfo(TMyType),Str))

Men da jeg har forskellige enumerated variable, synes jeg at det ville se mere elegant ud, hvis man hver gang man skulle lave en streng om til en enum, bare kunne kalde en function:

function StrToEnum(T: "TypeIdentifier", S: String): Integer;
begin
  Result:= T(GetEnumValue(TypeInfo(T), S));
end;

og så kunne man kalde ovenstående:

MyType:= EnumToStr(TMyType, Str);
MyType1:= EnumToStr(TMyType1, 'Mar');

Problemet er : hvad skal der står der, der hvor jeg har skrevet "TypeIdentifier" ?
Jeg ved at det kan lade sig gøre, fordi man kan jo kalde functionen TypeInfo i delphi på denne måde.

Da du har brugt enum tror/ved jeg ikke hvordan du skal gøre, andet end at benytte overload og gøre sådan :

function StrToEnum(T: TMyType, S: String): Integer; overload;
begin
  Result:= T(GetEnumValue(TypeInfo(T), S));
end;

function StrToEnum(T: TMyType1, S: String): Integer; overload;
begin
  Result:= T(GetEnumValue(TypeInfo(T), S));
end;

function StrToEnum(T: TMyType2, S: String): Integer; overload;
begin
  Result:= T(GetEnumValue(TypeInfo(T), S));
end;

sad lige og tænkte lidt :) vender lige tilbage...

ikke noget alligevel, tror du bliver nødt til at leve med "overload" :)

Jo det har jeg også tænkt på, men så skal man lave en ny funktion, hvergang man har en enum type. Dvs så er der stadig meget arbejde og rod :)

Men hvordan er TypeInfo funktionen i delphi defineret. Hvis man vidste det, så kunne man jo bare definere sin funktion på samme måde.....

hvor tror du man kan finde ud af det ?

Den er bygget ind i compileren, og Typeidentifier er ikke sådan lige at definere :(

Bliver dig svar skyldig, hvis du er rigistreret bruger kan du jo prøve at spørge CodeGear folkene