aus der zwischenablage holen und editfenster wechseln?

[dominikkv]

hmm also nochmal:
mit ClipBoard.AsText bekommst du den Inhalt der Zwischenablage als String.

Delphi-Quellcode:

procedure TForm1.Button1Click;
var
  IPAdresse: String;
  IP1, IP2, IP3, IP4: String;
  P1, P2: Byte;
begin
  IPAdresse := Clipboard.AsText; // Jetzt steht in IPAdresse '192.168.178.1';
  P1 := Pos('.', IPAdresse);
  IP1 := copy(IPAdresse, 1, P1); // jetzt steht in IP1 '192'
  P2 := PosEx('.', IPAdresse, P1+1);
  IP2 := copy(IPAdresse, P1+1, P2-P1-1); // jetzt steht in IP2 '168'
  P1 := PosEx('.', IPAdresse, P2+1);
  IP3 := copy(IPAdresse, P2+1, P1-P2-1); // jetzt steht in IP3 '178'
  IP4 := copy(IPAdresse, P1+1, length(IPAdresse)-P1-1); // jetzt steht in IP4 '1'
  showmessage(Format('%s.%s.%s.%s', [IP1, IP2, IP3, IP4])); // 192.168.178.1
end;

Das Beispiel ist ungetestet und kann Fehler enthalten (zB zu viel/zu wenig kopiert).