IP cím ellenőrző függvény készítése

A példában egy egyszerű TEdit típusú vezérlőben lehet megadni a vizsgálandó IP címet reprezentáló karakterláncot, amelyet az IsValidIPAddress nevű függvény dolgoz fel. Az IsValidIPAddress függvény a következő jellemzőkkel rendelkezik:

A függvény a karakterláncot szegmensekre bontja, ezeket egy karakterláncokat tároló listába teszi. A listát a művelet elején létre kell hozni:

IPlist := TStringList.Create;

A karakterlánc vizsgálatakor a legkézenfekvőbb módszer a karakterek egyenkénti feldolgozása. Minden karakterről megállapítható, hogy értéke megfelel-e a kritériumoknak az adott pozícióban. Az egyes vizsgálatok beállítanak egy logikai változót, mely a függvény visszatérési értéke lesz. A karakterlánc elemein végigmenő ciklus a következő vizsgálati feltételeket tartalmazza:

. . .
if not (Value[i] in segchar) then
begin
  b:=false;
  break;
end;

if (Value[i]='.') and ((i=1) or (i=Length(Value))) then begin
  b:=false;  break;
end;

if Value[i]='.' then
begin
  IPlist.Add(IPSegment);
  IPSegment:='';
end
else
begin
  IPSegment:=IPSegment+Value[i];
end;
. . .
IPlist.Add(IPSegment);
s := 0;
if (IPlist.Count <> 4) then b:=false;
  for j:=0 to IPlist.Count-1 do
    begin
      s := StrToInt(IPlist.Strings[j]);
      if (s>255) or ((IPlist.Strings[j][1] = '0') and (Length(IPlist.Strings[j]) > 1)) then
        begin
          b:=false;
          break;
        end;
    end;
IPlist.Free;

A függvény az alkalmazásban a Form-on található gomb megnyomásakor hajtódik végre.