string manipulieren

[Sharky]

Hier mal eine quick an dirty Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  oldIP : String;
  newIP : String;
  ndx : Integer;
  punkte : Integer;
begin
  oldIP := '192.168.1.23';
  punkte := 0;
  for ndx := 1 to Length(oldIP) do
  begin
    if (oldIP[ndx] = '.') then
    begin
      INC (punkte);
    end;
    if (punkte = 3) then
    begin
      newIP := Copy (oldIP,1,ndx);
      break;
    end;
  end;
  Label1.Caption := newIP;  / Die alte IP ohne das letzte Oktet.
end;

Uff... was für ein Lösung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  oldIP : String;
  newIP : String;
  ndx : Integer;
begin
  oldIP := '192.168.1.23';
  punkte := 0;
  for ndx := Length(oldIP) downto 1 do
  begin
    if (oldIP[ndx] = '.') then
    begin
      newIP := Copy (oldIP,1,ndx);
      break;
    end;
  end;
  Label1.Caption := newIP;
end;