aufzählungstyp auf string speichern

[markus lemcke]

kann ich einen eingestellten(gesetzten) Aufzählungstyp auf einen string speichern,
wenn ja wie?

gruß

markus

[Jens Schumann]

Hallo Markus,<br>ich habe hier ein Beispiel für Dich. Ich denke, am intressantesten für Dich ist der OnCreate Handler des Forms.<br>
<pre><font size="1" face="Verdana">
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TyourEnumType = (One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten);

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses typinfo;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Button1');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
PropInfo : PPropInfo;
aProc : Pointer;
begin
PropInfo := GetPropInfo(Button1.ClassInfo,'OnClick');
if Assigned(PropInfo) then
aProc:=PropInfo^.GetProc;
If PropInfo^.PropType^.Kind=tkMethod then
ShowMessage('Methode= '+PropInfo^.Name+' : '+PropInfo^.PropType^.Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i := Ord(Low(TyourEnumType)) to Ord(High(TyourEnumType)) do
Combobox1.Items.Add(GetEnumName(TypeInfo(TyourEnum Type), i));
Combobox1.ItemIndex:=0;
end;

end.
</font></pre>
<br>:-) Jens Schuman