devexpress cxCurrencyEdit2.EditValue Fehler

[Alfredo]

nedit1: Integer;

nedit1 := cxCurrencyEdit1.EditValue;


liefert den Fehler "Variante des Typs(Null) konnte nicht in den Typ Integer
konvertiert werden" wenn in dem Feld nichts enthalten ist.

Wie fange ich denn diesen Vorgang ab?

Gruß
Alfred

[DeddyH]

Hast Du es einmal mit IsNull versucht?

[Alfredo]

If cxCurrencyEdit1.EditValue IsNull then
begin
end;

liefert Fehler: "For-Schleifenvariable muss eine einfache locale Variable sein"

[DeddyH]

Was hat denn das mit einer Schleife zu tun? Egal, dann versuchen wir es mal mit VarIsNull:

Delphi-Quellcode:

If VarIsNull(cxCurrencyEdit1.EditValue) then
begin
end;

[Coffeecoder]

Ich glaube das steckt mehr dahinter, als nur cxCurrencyEdit1.EditValue .
Poste mal bisschen mehr hier rein.

[DeddyH]

Ich habe leider kein DevExpress Evtl. gibt es ja die Möglichkeit, an das angebundene Dataset zu kommen. Dann könnte man das zugewiesene Feld des aktuellen Datensatzes ja direkt auf NULL prüfen.

[Coffeecoder]

Zitat von DeddyH:

Ich habe leider kein DevExpress

Dito. devExpress habe ich auch nicht.

Zitat von DeddyH:

Dann könnte man das zugewiesene Feld des aktuellen Datensatzes ja direkt auf NULL prüfen.

Ja bestimmt. Aber wenn wir mehr Code sehen würden, wäre es leichter!?

[dataspider]

Also, DeddyH hat dir ja schon die Lösung (VarIsNull) gegeben.

EditValue ist halt Variant und wenn es Null ist, kommt bei Zuweisung an eine Integer Variable eine Exception.
Allerdings ferfügt cxCurrencyEdit noch über das Propertie Value Typ Double.

Das sollte gehen:

nedit1 := trunc(cxCurrencyEdit1.Value);
Frank

[Alfredo]

Hallo DeddyH,

VarIsNull() ist die Lösung.

Vielen Dank.



Hallo Coffeecoder:

Es war leider nicht mehr Code.

Ich wollte nur den Inhalt des Editfeldes einer Variablen zuweisen
und den dann später abfragen.

[Union]

Dataspiders Lösung ist eleganter, in Value steht immer ein Wert ungleich NULL
ShowMessage(Format('Wert: %g', [cxCurrencyEdit1.Value]));