paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 04:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

added syneditregexsearch.pas

Browse Source 
git-svn-id: trunk@3165 -
This commit is contained in:
mattias 2002-08-18 16:50:08 +00:00
parent 83894d1dc1
commit f0590fba4f
1 changed files with 45 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synregexpr.pas
View File

@ -442,13 +442,13 @@ interface
{$IFNDEF FPC} {$IFNDEF FPC}
{$DEFINE reRealExceptionAddr} // if defined then exceptions will {$DEFINE reRealExceptionAddr} // if defined then exceptions will
{$ENDIF}
// jump to appropriate source line, not to Error procedure // jump to appropriate source line, not to Error procedure
{$ENDIF}
{$DEFINE ComplexBraces} // define for beta-version of braces {$DEFINE ComplexBraces} // define for beta-version of braces
// (in stable version it works only for simple cases) // (in stable version it works only for simple cases)
{.$DEFINE UniCode} // define for Unicode support {off $DEFINE UniCode} // define for Unicode support
{$IFNDEF UniCode} // optionts applicable only for non-UniCode {$IFNDEF UniCode} // optionts applicable only for non-UniCode
{$DEFINE UseSetOfChar} // Significant optimization by using set of char {$DEFINE UseSetOfChar} // Significant optimization by using set of char
@ -548,7 +548,6 @@ const
type type
{$IFDEF UseSetOfChar} {$IFDEF UseSetOfChar}
PSetOfREChar = ^TSetOfREChar; PSetOfREChar = ^TSetOfREChar;
TSetOfREChar = set of REChar; TSetOfREChar = set of REChar;
@ -1020,24 +1019,24 @@ const
{$IFDEF UniCode} {$IFDEF UniCode}
function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar; function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar;
var var
i, Len : Integer; i, Len : Integer;
begin begin
Len := length (Source); //###0.932 Len := length (Source); //###0.932
for i := 1 to Len do for i := 1 to Len do
Dest [i - 1] := Source [i]; Dest [i - 1] := Source [i];
Dest [Len] := #0; Dest [Len] := #0;
Result := Dest; Result := Dest;
end; { of function StrPCopy end; { of function StrPCopy
--------------------------------------------------------------} --------------------------------------------------------------}
function StrLCopy (Dest, Source: PRegExprChar; MaxLen: Cardinal): PRegExprChar; function StrLCopy (Dest, Source: PRegExprChar; MaxLen: Cardinal): PRegExprChar;
var i: Integer; var i: Integer;
begin begin
for i := 0 to MaxLen - 1 do for i := 0 to MaxLen - 1 do
Dest [i] := Source [i]; Dest [i] := Source [i];
Result := Dest; Result := Dest;
end; { of function StrLCopy end; { of function StrLCopy
--------------------------------------------------------------} --------------------------------------------------------------}
function StrLen (Str: PRegExprChar): Cardinal; function StrLen (Str: PRegExprChar): Cardinal;