ip auf gültigkeit prüfen

[sirius]

Delphi-Quellcode:

uses Winsock;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if inet_addr(PChar(edit1.Text))=INAddr_None then
    raise Exception.CreateFMT('%s ist keine gültige IP-Adresse',[edit1.text]);
end;

Edit:
"255.255.255.255" müsste man bei dieser Version noch extra überprüfen.
Beachte das auch "4" oder "4.6" eine gültige Adresse ist.