Änderung einer Deklarartion integer <-> double möglich?

[Reinhard Kern]

Zitat von himitsu:

vergiß aber nicht, daß bei Reinhard Kerns Lösung der Record selber freigegeben werden muß, wenn da etwas größeres drin enthalten ist, welches via Pointer referenziert ist und auch bei Objekten.

...
dieser Record ist z.B. 12 Byte groß,
regelt die Speicherfreigabe selber und man braucht keine Zuweisungsfunktionen aufrufen

...

Das ist eben ein andrer Fall: ich verwalte Ini-Einträge, und die sollen zwar verschiedene Typen verwalten können, aber der Typ darf NIEMALS wechseln. Deswegen auch kein Overloading, als integer festlegen und als string abrufen ist eben falsch (bei dir übrigens auch, nicht formal aber logisch, oder wertest du beim Lesen den Typ aus?).

Gruss Reinhard

[Popov]

Zitat von BAMatze:

Hallo und guten Morgen an alle DP´ler,

Hab mal eine allgemeine Frage. Kann ich in die Deklaration einer Property einer Komponente je nach Verwendung ändern?
Es geht um folgendes: Ich hab eine Komponente, in welche Ganzzahlen oder Gleitkommazahlen eingegeben werden können. Je nachdem welcher Typ durch den Benutzer eingestellt wird, soll die Property Value integer oder double sein. Gibt es eine Möglichkeit dies umzusetzen?
Leider hab ich zu dem Thema kein Threat gefunden, was sicherlich nicht daran liegt, dass es sie nicht gibt, sondern an den verwedeten Fachwörtern.

Variant wäre möglich. Der Code wird dadurch langsamer, aber du kannst alles damit machen. Du kannst als Integer anfangen, Double draus machen und dann sogar noch ein String

Delphi-Quellcode:

var
  a: Variant;
begin
  a := 5;
  ShowMessage(IntToStr(a * 5));
  a := a / 2;
  ShowMessage(FloatToStr(a));
  a := 'a ist = ' + FloatToStr(a);
  ShowMessage(a);
end;

Das ist schon beinahe Visual Basic

[himitsu]

Man könnte den Typ auswerten und entsprechend versuchen umzuwandeln, aber in meinem aktuellen Fall ist dieses nicht so.

Die Originaldefinition sieht eigentlich nur so aus (aus himXMLi.pas) und diehnt eigentlich nur der Möglichkeit einer Funktion unterschiedliche Parameter zu übergeben (da keine überladenen Properties möglich sind ... außer in neueren Delphiversionen und da auch nur bei den Default-Properties)

Delphi-Quellcode:

TIndex = Record
  ValueType:   (vtIntValue, vtStringValue);
  IntValue:    Integer;
  StringValue: String;
  Class Operator Implicit(      Value: Integer): TIndex;
  Class Operator Implicit(Const Value: String):  TIndex;
End;

Intern wird da der übergebene Wert direkt entsprechend behandelt.

Also es kommt dann auf die Interne Behandlung an, also ob der Typ sich auch mal ändern kann und man eventuell sogar eine Typumwandlug mit integriert hat,
oder ob der Typ danach Fest ist.

[BAMatze]

Also habe das jetzt erstmal wie folgt gelöst:

Delphi-Quellcode:

type TZahltyp = (ZtGanzzahl, ZtposGanzzahl, ZtGleitkommazahl, ZtposGleitkommazahl);

Type TLabZahlEdit = Class(TWinControl)
  private
    ...
    FvValue: Variant;
    ...
    procedure SetValue(vWert: Variant);
    function GetValue: Variant;
  protected
    ...
  published
    ...
    property Value: Variant read GetValue write SetValue;
  public
    ...
end;

procedure TLabZahlEdit.SetValue(vWert: Variant);
var sTemp: string;
    dTemp: double;
    iTemp: integer;
begin
  // es muss bei der Konvertierung darauf geachtet werden, dass ein int auch in
  // ein double umgewandelt werden kann und somit muss anhand des eingestellten
  // Zahlentyps die richtige Konvertierung durchgeführt werden.
  sTemp := vartostr(vWert);
  if sTemp <> Null then
    begin
      case FEdEingabe.Zahlart of
        Ganzzahl: if trystrtoint(sTemp, iTemp) then
                             begin
                               FvValue := vWert;
                               SetText(sTemp);
                             end;
        posGanzzahl: if trystrtoint(sTemp, iTemp) then
                             begin
                               FvValue := vWert;
                               SetText(sTemp);
                             end;
        Gleitkommazahl: if trystrtofloat(sTemp, dTemp) then
                             begin
                               FvValue := vWert;
                               SetText(sTemp);
                             end;
        posGleitkommazahl: if trystrtofloat(sTemp, dTemp) then
                             begin
                               FvValue := vWert;
                               SetText(sTemp);
                             end;
      end;
    end;
end;

function TLabZahlEdit.GetValue: Variant;
var sTemp: string;
    iTemp: integer;
    dTemp: double;
begin
  sTemp := vartostr(FvValue);
  case FEdEingabe.Zahlart of
    Ganzzahl: if trystrtoint(sTemp, iTemp) then result := strtoint(sTemp);
    posGanzzahl: if trystrtoint(sTemp, iTemp) then result := strtoint(sTemp);
    Gleitkommazahl: if trystrtofloat(sTemp, dTemp) then result := strtofloat(sTemp);
    posGleitkommazahl: if trystrtofloat(sTemp, dTemp) then FvValue := strtofloat(sTemp);
  end;
end;

Könnt ihr euch ja vieleicht mal anschauen, ob ich da jetzt einen Denkfehler drin hab oder ob das ok ist. Danke euch auf jeden Fall für eure Anregungen.

MfG
BAMatze

[himitsu]

Zitat:

if sTemp <> Null then

sTemp ist immer ungleich NULL , selbst wenn es "leer" ist.
Wenn schon, dann solltest du vWert auf NULL prüfen.

[BAMatze]

Zitat von himitsu:

Zitat:

if sTemp <> Null then

sTemp ist immer ungleich NULL , selbst wenn es "leer" ist.
Wenn schon, dann solltest du vWert auf NULL prüfen.

Arbeite ich gleich mit ein, Danke @himitsu

[quendolineDD]

Ebenso könnte man den Quelltext etwas verschlanken. In dem Case machst du nach dem TryStrToXXX immer das gleiche.

[BAMatze]

Zitat von quendolineDD:

Ebenso könnte man den Quelltext etwas verschlanken. In dem Case machst du nach dem TryStrToXXX immer das gleiche.

ja hab ich auch schon drüber nachgedacht. Werde ich dann morgen mal machen, danke auch an dich.

[shmia]

Das scheint mir doch alles etwas zu aufwändig zu sein.
In einem TEdit (und alles was davon abgeleitet ist), steht in erster Linie ein Text.
Möchte man sich das Leben etwas einfacher machen, dann kann man zusätzliche Properties aufnehmen:

Delphi-Quellcode:

Property Text:String;
property AsFloat:Extended read ... write ...;
property AsInteger:Integer read ... write ...;

Der Anwender der Komponente hat doch fast immer eine genaue Vorstellung was in dem Control drinsteckt (ganzzahl, float, Text) und wählt das passende Property.