Strings trennen

[marabu]

Hallo,

und wieder sind die Anforderungen nicht klar definiert - aber trotzdem:

Delphi-Quellcode:

function CapoStr(const s: String): String;
var
  iLen, iPos: Integer;
begin
  iLen := Pos('-', s);
  iPos := PosEx('-', s, Succ(iLen));
  Result := Copy(s, 1, iLen) + Copy(s, Succ(iPos), MaxInt);
end;

// Test
procedure TDemoForm.MergeButtonClick(Sender: TObject);
begin
  ShowMessage(CapoStr('0141-123456 -98765'));
end;

Gute Nacht