Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gollum,
30. Sep 2003
Hallo,
Deine Routine kann man auch noch etwas optimieren:
// Annahme, dass Adresse in der Form "127.0.0.1" oder "127..." übergeben wird
type
TIpArr=array of Integer;
procedure TIPCheck.PruefeIP(Sender:TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gollum,
30. Sep 2003
Hallo,
das liegt daran, dass bei strtoint() ein Leerzeichen übergeben wird.
Da ein leerer String nicht in eine Zahl umgewandelt werden kann, erhälst Du die Fehlermeldung.
Um dies zu verhindern, musst Du die entsprechenden Variablen darauf überprüfen, ob Sie überhaupt etwas enthalten:
if (byte2s<>'') then byte2i:=strtoint(byte2s);
oder Du packst die Umwandlung in einen...