Hallo zusammen.
Ich hab folgendes Problem
Code:
procedure Tf_hauptmenue.bbtn_bildspeichernClick(Sender: TObject);
var swe_nummer : string;
iwe_nummer : integer;
begin
swe_nummer:=e_wenummer.Text;
try
iwe_nummer:=StrToInt(swe_nummer);
except
iwe_nummer:=0;
end;
// Abfrage ob WE Nummer eingetragen ist
if iwe_nummer > 0 then
begin ......
e_wenummer.text ist ein Edit Feld in dem nur Zahlen stehen können.
ich möchte, abfragen, ob das Feld leer ist oder nicht.
Wenn es leer ist, soll eine Meckermeldung kommen und wenn was drin steht soll die Anwendung ganz normal weiter laufen.
Ich geh hin, wandel den String in Int um und schaue, ob er größer 0 ist.
Wenn das Feld leer ist, also kein String in Int umwandelbar ist, soll iwenummer mit 0 vorbelegt werden.
Ich bekomme aber trotzdem die Meldung, das '' kein gültiger Int - Wert ist und die Applikation steigt aus.
Was mach ich falsch?