mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 12:48:16 +02:00
20 lines
280 B
ObjectPascal
20 lines
280 B
ObjectPascal
{$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.
|
|
|