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.

......

[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
if Integer(Mode) = 1 then ... oder viel besser und sauberer
if Mode = timInteger then ... ......

[nemo2003]

thx!
hat gefunzt

manchmal bevorzuge ich doch lieber basic !

[sakura]

Zitat von nemo2003:

manchmal bevorzuge ich doch lieber basic !

Ich habe es am College unterrrichtet und hasse es noch immer

......

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