mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 14:08:02 +02:00
21 lines
379 B
ObjectPascal
21 lines
379 B
ObjectPascal
{$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.
|