blob: b28ba38b5196a29e581089f1d58382f7f955a0c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{$mode objfpc}
type
TSynIdentChars = set of char;
tobj = class
function GetIdentChars: TSynIdentChars; virtual;
procedure p(s : tSynIdentChars);
property IdentChars: TSynIdentChars read GetIdentChars;
end;
function tobj.GetIdentChars: TSynIdentChars;
begin
end;
procedure tobj.p(s : tSynIdentChars);
begin
p(IdentChars+['-']);
end;
begin
end.
|
