oder man macht es mit TryStrToInt
Code:
var
I: Integer;
begin
If TryStrToInt(swe_nummer, I) then
iwe_nummer := I
else
iwe_nummer := 0;
end;
So gibts auch keine meldung beim compilieren
Code:
var
I: Integer;
begin
TryStrToInt(swe_nummer, I);
iwe_nummer := I;
end;
[Edit] es geht auch ohne dem If, da TryStrToInt eine 0 zurück gibt wenn der String keinen Zahl ist [/Edit]