Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: "Überlappungen" zwischen zwei Strings

    Delphi
    by Redeemer, 15. Jun 2020
  Irgendwie so?
  
  uses Math, StrUtils;
  
  Length1 := Length(Text1); // man sollte LeftStr und RightStr unten ersetzen durch das wesentlich effizientere Copy, wofür man das hier braucht, dafür bin ich aber zu faul
  for i := 1 to Min(Length(Text2), Length1) do
  if RightStr(Text1, i) = LeftStr(Text2, i) then
  Exit(Text1, Copy(Text2, i, High(Integer)));
  raise Exception.Create('geht nicht');
  Je nach...