blob: bea94a1106a5a5d324dbd91accb66fbd27b29c5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{$mode objfpc}
{$packset 1}
uses
sysutils;
function possetex (const c:string;const s : ansistring;count:Integer ):Integer;
var cset : TSysCharSet;
i : integer;
begin
cset:=[];
if length(c)>0 then
for i:=1 to length(c) do
include(cset,c[i]);
end;
begin
end.
|
