was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

50 Visitors Online


 
...einen String auf eine gültige IP-Adresse überprüfen (II)?
Autor: Opa
[ Tip ausdrucken ]  

Tip Bewertung (23):  
     


// Die Lösung
// http://www.swissdelphicenter.ch/de/showcode.php?id=381
// ist leider nicht richtig!

// Einen String auf eine gültige IP-Adresse überprüfen wenn das Format
// '000.000.000.000 bzw. 0.0.0.0 ist / sein sollte.

function IsWrongIP(Ip: string): Boolean;
const
  
Z = ['0'..'9', '.'];
var
  
I, J, P: Integer;
  W: string;
begin
  
Result := False;
  if (Length(Ip) > 15) or (Ip[1] = '.') then Exit;
  I := 1; 
  J := 0; 
  P := 0; 
  W := '';
  repeat
    if 
(Ip[I] in Z) and (J < 4) then
    begin
      if 
Ip[I] = '.' then
      begin
        
Inc(P);
        J := 0;
        try
          
StrToInt(Ip[I + 1]);
        except
          
Exit;
        end;
        W := '';
      end 
      else 
      begin
        
W := W + Ip[I];
        if (StrToInt(W) > 255) or (Length(W) > 3) then Exit;
        Inc(J);
      end;
    end
    else 
      
Exit;
    Inc(I);
  until I > Length(Ip);
  if P < 3 then Exit;
  Result := True;
end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners