procedure TIPCheck.PruefeIP(Sender:TObject);
var
temp1:integer; temp2:integer;
// Variablendefinition
temp3:integer; temp4:integer;
// Variablendefinition
byte1s:
string; byte2s:
string;
// Variablendefinition
byte3s:
string; byte4s:
string;
// Variablendefinition
byte1i:integer; byte2i:integer;
// Variablendefinition
byte3i:integer; byte4i:integer;
// Variablendefinition
ok:boolean;
// Variablendefinition
begin
ok:=false;
// Initialisierung der Variable
temp1:=-1;
// Initialisierung der Variable
temp2:=-1;
// Initialisierung der Variable
temp3:=-1;
// Initialisierung der Variable
temp4:=-1;
// Initialisierung der Variable
if copy(text,1,1)='
.'
then temp1:=1;
// Feststellung wo Byte endet
if copy(text,2,1)='
.'
then temp1:=2;
// Feststellung wo Byte endet
if copy(text,3,1)='
.'
then temp1:=3;
// Feststellung wo Byte endet
if copy(text,temp1+3,1)='
.'
then temp2:=1;
// Feststellung wo Byte endet
if copy(text,temp1+4,1)='
.'
then temp2:=2;
// Feststellung wo Byte endet
if copy(text,temp1+5,1)='
.'
then temp2:=3;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+3,1)='
.'
then temp3:=1;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+4,1)='
.'
then temp3:=2;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+5,1)='
.'
then temp3:=3;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+temp3+3,1)='
.'
then temp4:=1;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+temp3+4,1)='
.'
then temp4:=2;
// Feststellung wo Byte endet
if copy(text,temp1+temp2+temp3+5,1)='
.'
then temp4:=3;
// Feststellung wo Byte endet
byte1s:=copy(text,0,temp1);
// Umwandlung der gesamten IP-Adresse in Byte
// Speicherung als String
byte2s:=copy(text,temp1+1,temp2);
// Umwandlung der gesamten IP-Adresse in Byte
// Speicherung als String
byte3s:=copy(text,temp2+1,temp3);
// Umwandlung der gesamten IP-Adresse in Byte
// Speicherung als String
byte4s:=copy(text,temp3+1,temp4);
// Umwandlung der gesamten IP-Adresse in Byte
// Speicherung als String
byte1i:=strtoint(byte1s);
// Umwandlung des String in Integer
byte2i:=strtoint(byte2s);
// Umwandlung des String in Integer
byte3i:=strtoint(byte3s);
// Umwandlung des String in Integer
byte4i:=strtoint(byte4s);
// Umwandlung des String in Integer
if (byte1i<256)
then ok:=true;
// Prüfung, ob Byte gültig ist (Zahl kleiner als 256)
if (byte2i<256)
then ok:=true;
// Prüfung, ob Byte gültig ist (Zahl kleiner als 256)
if (byte3i<256)
then ok:=true;
// Prüfung, ob Byte gültig ist (Zahl kleiner als 256)
if (byte4i<256)
then ok:=true;
// Prüfung, ob Byte gültig ist (Zahl kleiner als 256)
if not ok
then // Wenn Prüfungen nicht bestanden
raise TUngueltigeAdresse.Create('
IP-Adresse nicht korrekt!');
// Fehlermeldung
end;