Changeset 186 for trunk/Forms

Timestamp:

Jul 11, 2018, 3:34:11 PM (6 years ago)

Author:

chronos

Message:

• Modified: Faster substring searching with PosFromIndex function without unnecessary string copying.

File:

• trunk/Forms/UFormCheck.pas (modified) (3 diffs)

trunk/Forms/UFormCheck.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ComCtrls, UAcronym, URegistry, Registry;
+  ExtCtrls, ComCtrls, UAcronym, URegistry, Registry, UCommon;
 
 type
@@ -49 +49 @@
     function SearchLine(Lines: TStrings; Text: string; Start: Integer = 0): Integer;
     function SearchLineReverse(Lines: TStrings; Text: string; Start: Integer = -1): Integer;
-    function PosFromIndex(SubStr: string; Text: string; StartIndex: Integer): Integer;
-    function PosFromIndexReverse(SubStr: string; Text: string; StartIndex: Integer): Integer;
     procedure FindInSummary;
     procedure FindInContent;
@@ -173 +171 @@
     else Result := Start;
   while (Result >= 0) and (Pos(Text, Lines[Result]) = 0) do Dec(Result);
-end;
-
-function TFormCheck.PosFromIndex(SubStr: string; Text: string;
-  StartIndex: Integer): Integer;
-begin
-  Delete(Text, 1, StartIndex);
-  Result := Pos(SubStr, Text);
-  if Result <> 0 then Result := Result + StartIndex;
-end;
-
-function TFormCheck.PosFromIndexReverse(SubStr: string; Text: string;
-  StartIndex: Integer): Integer;
-begin
-  Delete(Text, StartIndex + 1, Length(Text));
-  Result := LastDelimiter(SubStr, Text);
 end;