aus der zwischenablage holen und editfenster wechseln?

[Sharky]

Hai,

ich würde die Aufteilung des Strings entweder mit der Explode Funktion, oder einfach mit der guten alten StringList machen.

Delphi-Quellcode:

procedure TDemo_Form.Button1Click(Sender: TObject);
var
  IPAdresse: string;
  sl: TStrings;
begin
  IPAdresse := Clipboard.AsText;
  sl := TStringList.Create;
  try
    sl.Delimiter := '.';
    sl.DelimitedText := IPAdresse;
    if sl.Count = 4 then
    begin
      edt_okt1.Text := sl.Strings[0];
      edt_okt2.Text := sl.Strings[1];
      edt_okt3.Text := sl.Strings[2];
      edt_okt4.Text := sl.Strings[3];
    end
    else
    begin
      ShowMessage('Da ist irgend ein Fehler');
    end;
  finally
    sl.Free;
  end;
end;

procedure TDemo_Form.Button2Click(Sender: TObject);
var
  IPAdresse: string;
  IPOktets:  TStringDynArray;
begin
  IPAdresse := Clipboard.AsText;
  IPOktets  := Explode('.', IPAdresse);
  if (High(IPOktets) = 3) then
  begin
    edt_okt1.Text := ipOktets[0];
    edt_okt2.Text := ipOktets[1];
    edt_okt3.Text := ipOktets[2];
    edt_okt4.Text := ipOktets[3];
  end;
end;