Thema: Delphi Compare String Funktion

Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
3.896 Beiträge
 
Delphi 12 Athens
 
#8

AW: Compare String Funktion

  Alt 27. Jan 2021, 15:27
Warum 20 Zeichen ?
Wäre es nicht besser und sicherer nach irgendeinem eindeutigen Delimiter zu suchen ?
Z.B. "):"

http://docwiki.embarcadero.com/Libra.../de/System.Pos
Delphi-Quellcode:
    LPos1 := Pos( AText1, '):');
    LPos2 := Pos( AText2, '):');
    if LPos1 = LPos2 then
    begin
        Result := MussEchtVergleichen( AText1, AText2);
    end
    else
        Result := False;

Das würde auch den Vergleich beschleunigen, wenn nämlich die Positionen unterschiedlich sind, dann muss es <> sein, und man braucht nicht mehr echt zu vergleichen (was teuer ist).

Geändert von Rollo62 (27. Jan 2021 um 15:30 Uhr)
  Mit Zitat antworten Zitat