Typ Werte Als String?

[Kedariodakon]

Wenn ich ein Typen habe z.B.:
Type   TAuto = ( aBMW, aOPEL, aAUDI, aFORD, aNISSAN {...} ); nu will ich gern den TAuto-Typ-Wert als String haben!
z.B. wenn TAuto = aBMW möchte ich aBMW als String zurückhaben...
Geht das irgendwie ohne eine lange Case-Funktion zu benutzen oder ein StringArray vom Typ TAuto oder sonst was wozu ich alle TAuto-Werte nochmal auflisten muß?
Ganz einfach als Funktion vielleicht?

Bye

[ibp]

imho nein

[jfheins]

+Mit der Ausgabe von eigenen Typen siehts schlecht aus.
Du machst am besten eine Funktion, die dir das ganze "übersetzt".function AutoToStr (Auto: TAuto): String;

[dizzy]

Gibt's imho nicht. Am besten schreibt man sich für sowas dann eine kleine Funktion der Art:

Delphi-Quellcode:

function TAutoToStr(v: TAuto): String;
begin
  case v of
    aBMW: result := 'aBMW';
    aOPEL: ... ...
  end;
end;

\\edit: Ui! Später, aber ausführlicher

[Gollum]

Hallo,

oder Du nimmst ein Array of String in der Form:

Delphi-Quellcode:

  
const
  TAutoStr:array[TAuto] of String=
    ('aBMW', 'aOPEL', 'aAUDI', 'aFORD', 'aNISSAN',  {...} );

[Sprint]

Zitat von Kedariodakon:

nu will ich gern den TAuto-Typ-Wert als String haben!
z.B. wenn TAuto = aBMW möchte ich aBMW als String zurückhaben...
Geht das irgendwie ohne eine lange Case-Funktion zu benutzen

Also indirekt über einen kleinen Umweg geht es. Stichwort: RTTI

Delphi-Quellcode:

...

uses TypInfo;

...

type
  TAuto = (Opel, BMW, VW, Audi, Nissan);
  TAutos = Set of TAuto;

...

function FabrikatToStr(Autos: TAutos): String;
var
  I: TAuto;
begin
  Result := '';
  for I := Low(TAuto) to High(TAuto) do
  begin
    if I in Autos then
    begin
      if Result <> '' then
        Result := Result + ', ';
      Result := Result + GetEnumName(TypeInfo(TAuto), Ord(I));
    end;
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Auto: TAutos;
begin
  Auto := [Nissan];
  ShowMessage(FabrikatToStr(Auto));
end;

...

[Kedariodakon]

habe das in der Arrayform wie Gollum meinte, aber bei vielen Werten wird das schnell unübersichtlich und gerade wenn man dann mal mittendrin was ändern will...

Da wär eine Case schon schöner, aber da muß man ja am Anfang soviel

OK danke erstmal...


Edit: @Sprint danke genausowas suchte ich

Edit: Geht

bye

[jim_raynor]

Kennt denn keiner die RTTI (Run Time Typ Information).

Einfach Unit TypInfo einbinden (hoffe die gibts in allen Delphi Versionen).

str:=GetEnumName(TypeInfo(TAuto),Ord(Value)); [edit]Oh Sprint kennt die ja doch [/edit]