IPs aufteilen

[xineohp]

hi,

wie schon erwähnt wurde benötigst du nur die Funktionen pos() bzw. posEx() und copy.
Die FUnktion von Phistev wird dir wohl nicht weiter helfen, da sich das Trennzeichen ändert.
Also ist selber machen angesagt

Delphi-Quellcode:

uses
  StrUtils;
var
  p1,p2,p3,p4: integer;
  block1,block2,block3,block4,block5: string;
  IP: string;
begin
  IP := '123.456.789.123/25';

  p1 := posex('.', IP, 1);
  p2 := posex('.', IP, p1+1);
  p3 := posex('.', IP, p2+1);
  p4 := posex('/', IP, p3+1);

  block1 := copy(IP, 1,    p1-1);
  block2 := copy(IP, p1+1, p2-p1-1);
  block3 := copy(IP, p2+1, p3-p2-1);
  block4 := copy(IP, p3+1, p4-p3-1);
  block5 := copy(IP, p4+1, length(IP)-p4); 

  showmessage( block1 +#13#10+
               block2 +#13#10+
               block3 +#13#10+
               block4 +#13#10+
               block5 );
end;