25 lines
389 B
ObjectPascal
25 lines
389 B
ObjectPascal
unit frxHelperCS;
|
|
interface
|
|
uses
|
|
Classes, Masks;
|
|
|
|
type
|
|
TfrxStringListMask = class(TStringList)
|
|
public
|
|
function IndexOf(const S: string): Integer; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
frxUtils;
|
|
|
|
function TfrxStringListMask.IndexOf(const S: string): Integer;
|
|
begin
|
|
for Result := 0 to GetCount - 1 do
|
|
if (MatchesMask(S, Get(Result))) then Exit;
|
|
Result := -1;
|
|
end;
|
|
|
|
end.
|