RegExpr: optimized func
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
i suggest optimization for function to not calc Copy() two times for same args.
function StrLComp (Str1, Str2: PRegExprChar; MaxLen: PtrUInt): PtrInt; var S1, S2: RegExprString; begin S1 := Str1; S2 := Str2; if Length(S1) > MaxLen then SetLength(S1, MaxLen); if Length(S2) > MaxLen then SetLength(S2, MaxLen); if S1 > S2 then Result := 1 else if S2 < S2 then Result := -1 else Result := 0; end; { function StrLComp --------------------------------------------------------------}
Mantis conversion info:
- Mantis ID: 34087
- Fixed in version: 3.1.1
- Fixed in revision: 39570 (#aa4a470c)
- Target version: 3.2.0