Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: "Überlappungen" zwischen zwei Strings

    Delphi
    by Uwe Raabe, 15. Jun 2020
  Mit TStringHelper geht das recht überschaubar:
  
  function ConcatNoOverlap(const A, B: string): string;
  var
  I: Integer;
  begin
  for I := Min(A.Length, B.Length) downto 1 do
  if string.Compare(A, A.Length - I, B, 0, I) = 0 then
  Exit(A.Remove(I-1) + B);
  Result := A + B;