Formatieren eine IP Adresse

[Markus Laube]

Hallo Leute,

ich bin verzweifelt auf der Suche nach einer möglichkeit eine IP Adresse zu formatieren, aber leider fehlt mir ein geeigneter Ansatz.

Ich will eine IP z.B. 192.168.1.1 in einen String lesen, das klappt auch soweit aber in diesem string soll die IP ungefähr so dargestellt werden 192.168.001.001.

eine andere Möglichkeit wäre wenn man nur die ersten 3 Stellen der IP auslesen könnte z.B. 192.168.1

Wahrscheinlich ist die Lösung ganz einfach, aber ich finde keine geeignete Möglichkeit.

Schon mal danke im voraus.

Gruß
Markus

[Christian Seehase]

Moin Markus,<br>
<br>
meinst Du das so:<br>
<br>
<pre>
var
sWork : string;

begin
sWork := '192.168.1.5';
ShowMessage(copy(sWork,1,LastDelimiter('.',sWork)-1));
end;
</pre>
<br>
?<br>
<br>
Ciao<br>
Chri

[Markus Laube]

Hallo Chris,

ja das war genau das was ich gesucht habe, vielen Dank

Gruß Marku

[Klaus-Peter Fitzner]

<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
sWork, s: string;
i:Integer;
begin
sWork := '192.168.1.5';
for i := 0 to 3 do begin
if i = 3 then s := sWork else s := copy(sWork,1,pos('.',sWork)-1);
delete(sWork,1,length(s)+1);
s := '00'+s;
ShowMessage(copy(s,length(s)-2,3));
end;
end;
</pre>

Und das für den Rest

mfg Klaus-Pete