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:

markieren

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:

markieren

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

zusammenfalten · markieren

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]

Typ Werte Als String?

Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Re: Typ Werte Als String?

Forumregeln

ibp Registriert seit: 31. Mär 2004 Ort: Frankfurt am Main 1.511 Beiträge Delphi 7 Architect	#2 Re: Typ Werte Als String? 14. Dez 2004, 14:01 imho nein
	Zitat

jfheins Registriert seit: 10. Jun 2004 Ort: Garching (TUM) 4.579 Beiträge	#3 Re: Typ Werte Als String? 14. Dez 2004, 14:01 +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;
	Zitat

dizzy Registriert seit: 26. Nov 2003 Ort: Lünen 1.932 Beiträge Delphi 7 Enterprise	#4 Re: Typ Werte Als String? 14. Dez 2004, 14:01 Gibt's imho nicht. Am besten schreibt man sich für sowas dann eine kleine Funktion der Art: markieren Delphi-Quellcode: function TAutoToStr(v: TAuto): String; begin case v of aBMW: result := 'aBMW'; aOPEL: ... ... end; end; \\edit: Ui! Später, aber ausführlicher Fabian K. INSERT INTO HandVonFreundin SELECT * FROM Himmel
	Zitat

Gollum Registriert seit: 14. Jan 2003 Ort: Boxberg 456 Beiträge Delphi 10.1 Berlin Professional	#5 Re: Typ Werte Als String? 14. Dez 2004, 14:05 Hallo, oder Du nimmst ein Array of String in der Form: markieren Delphi-Quellcode: const TAutoStr:array[TAuto] of String= ('aBMW', 'aOPEL', 'aAUDI', 'aFORD', 'aNISSAN', {...} ); Gruß Gollum www.kalenderlexikon.info
	Zitat

Kedariodakon Registriert seit: 10. Sep 2004 Ort: Mönchengladbach 833 Beiträge Delphi 7 Enterprise	#7 Re: Typ Werte Als String? 14. Dez 2004, 14:23 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 Christian
	Zitat

jim_raynor Registriert seit: 17. Okt 2004 Ort: Berlin 1.251 Beiträge Delphi 5 Standard	#8 Re: Typ Werte Als String? 14. Dez 2004, 15:09 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] Christian Reich Schaut euch mein X-COM Remake X-Force: Fight For Destiny ( http://www.xforce-online.de ) an.
	Zitat