paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: remove commented out code and associated comment.

Browse Source
This commit is contained in:
Bart 2021-11-02 19:03:37 +01:00
parent 61789da61d
commit 0ed2398c32
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/masks.pas
View File

@ -287,8 +287,6 @@ type
fSeparator: Char; fSeparator: Char;
fCaseSensitive: Boolean; fCaseSensitive: Boolean;
fMaskOpcodes: TMaskOpcodes; fMaskOpcodes: TMaskOpcodes;
// Creating also Windows masks is a hack needed for deprecated MatchesWindowsMask.
//fWindowsMasks: TObjectList; // remove in 2.5
function GetCount: Integer; function GetCount: Integer;
function GetItem(Index: Integer): TMask; function GetItem(Index: Integer): TMask;
procedure SetAutoReverseRange(AValue: Boolean); procedure SetAutoReverseRange(AValue: Boolean);
@ -1391,7 +1389,6 @@ begin
fMasks := TObjectList.Create(True); fMasks := TObjectList.Create(True);
FMaskClass := GetMaskClass; FMaskClass := GetMaskClass;
//fWindowsMasks := TObjectList.Create(True);
AddMasksToList(aValue, aSeparator, CaseSensitive, aOpcodesAllowed); AddMasksToList(aValue, aSeparator, CaseSensitive, aOpcodesAllowed);
end; end;
@ -1410,7 +1407,6 @@ end;
destructor TMaskList.Destroy; destructor TMaskList.Destroy;
begin begin
//fWindowsMasks.Free;
fMasks.Free; fMasks.Free;
inherited Destroy; inherited Destroy;
end; end;
@ -1473,8 +1469,6 @@ begin
try try
for i := 0 to S.Count-1 do begin for i := 0 to S.Count-1 do begin
fMasks.Add(FMaskClass.Create(S[i], CaseSensitive, aOpcodesAllowed)); fMasks.Add(FMaskClass.Create(S[i], CaseSensitive, aOpcodesAllowed));
// A hack, add also to fWindowsMasks.
//fWindowsMasks.Add(TWindowsMask.Create(S[i], CaseSensitive, aOpcodesAllowed));
end; end;
finally finally
S.Free; S.Free;