Wie spreche ich Indexe eines Typen an?

[nemo2003]

Mahlzeit !

Ich habe hier ein ganz ganz ganz kleines Problem!

Ich habe folgende Funktion:

Delphi-Quellcode:

function TNumberEdit.ReadAsString:string;
begin
  Result:='';
  if InputType=0 then Result:='';
  if self.mode=1 then Result:=self.Text;
end;

Der Head der Unit sieht wie folgt aus:

Delphi-Quellcode:

type
  TInputMode=(timUndefined,timInteger,timReal);
  TNumberEdit = class(TCustomEdit)
  private
    mode:TInputMode;
    function ValueString:String;
    function ReadAsString:String;
  protected
  public
  published
    property InputType:TInputMode read mode write mode;
    property ValueAsString:String read ReadAsString;
  end;

Wie kann ich herausbekommen, was der Programmierer denn nun im Objekt-Inspektor angewählt hat?

Weiss jemand eine Lösung?

[sakura]

Das steht (automatisch) in Deiner Variable mode.

...:cat:...

[nemo2003]

das ist mir schon klar, aber wie wandle ich den Wert um?
ich will über ein Integer rausbekommen, welcher gerade angewählt worden ist!

also undefined=0 oder Integer=1 oder Real=2

nur meldet mir delphi immer "inkompatible typen"

[sakura]

Entweder

Delphi-Quellcode:

if Integer(Mode) = 1 then ...

oder viel besser und sauberer

Delphi-Quellcode:

if Mode = timInteger then ...

...:cat:...

[nemo2003]

thx!
hat gefunzt

manchmal bevorzuge ich doch lieber basic ;)!

[sakura]

Zitat:

Zitat von nemo2003

manchmal bevorzuge ich doch lieber basic ;)!

:kotz: Ich habe es am College unterrrichtet und hasse es noch immer ;-)

...:cat:...

P.S.: Du kannst das Flag für "offene Frage" wohl entfernen ;-)