Einem maskEdit einen Integer wert zuweisen?

[josef]

Delphi ist bei Variablentypen komisch!
Ich will einem maskEdit 1 als wert zuweisen.
Die Maske ist 999.
Delphi sagt das String und Integer nicht Kompatibel sind?!
zahl.Text := 1;

[Chewie]

Die Eigenschaft Text des Maskedits ist vom Typ String, also:

Delphi-Quellcode:

MaskEdit1.Text := '1';

[josef]

Das hab ich vorher schon Selbst geschafft.
Danke aber.
Jetzt hab ich damit noch ein Problem.
Wenn das maskEdit Leer ist stürzt mein Programm ab.
Wie überprüfe ich ob es leer ist?
Ich wandle das in ein variant um und hab mal so versucht zu Prüfen ob es leer ist.
Geht aber nicht?!

Delphi-Quellcode:

endzahl : Variant;
begin
endzahl := zahl.Text;
if VarIsClear(endzahl) or VarIsEmpty(endzahl) or VarIsNull(endzahl) then
endzahl := 1;

Wenn es null (0) ist geht die Prüfung ohne Probleme.
Wenn es leer ist jammert Delphi das man Variant nicht in boolean konvertieren kann oder so

[Chewie]

Wenn es leer ist, dann ist die Eigenschaft Text ein leerer String. Aloso prüfst du auf ''.

[josef]

Hab ich vorher gemacht. Da jammert Delphi 7 das man Variant nicht in boolean convertieren kann oder so.
Ich hab jetzt den Code:

Delphi-Quellcode:

if (zahl.Text = '') then
zahl.Text := '1';
 MessageDlg(zahl.text, mtError,[mbOK], 0);

Der MessageDlg zeigt aber wenn im mask Edit nichts ist auch nichts an!
Also nicht 1!!!!!

[Chewie]

Nein, ich meinte die Eigenschaft Text des MaskEdits!

[josef]

zahl ist das maskEdit

//edit:
Habs geschafft!
Da der Mask Edit als maske 999 hat hat er wen er leer ist als inhalt drei LEERZEICHEN!!!
Ich muss daher auf ' ' prüfen, nicht auf ''

[Knut]

es geht mich ja nix an aber ich hab den ganzen text durchgelesen um am ende zu erfahren dass die frage eigentlich schon beantwortet ist, verstehste :!:

[josef]

Du wirst es mir nicht glauben, abe rich hab den Link oben übersehen!

[MasterD]

Zitat:

Zitat von josef

Hab ich vorher gemacht. Da jammert Delphi 7 das man Variant nicht in boolean convertieren kann oder so.
Ich hab jetzt den Code:

Delphi-Quellcode:

if (zahl.Text = '') then
zahl.Text := '1';
 MessageDlg(zahl.text, mtError,[mbOK], 0);

Der MessageDlg zeigt aber wenn im mask Edit nichts ist auch nichts an!
Also nicht 1!!!!!

hab das benutzt aber da kommt bei meinem 5er auch das der Ausdruckstyp Boolean sein muss und jetzt?