08/11/13 08:51:51
自分ならTBraceTableをTBraceInfoを保持するTObjectList/array ofベースのgenericなコンテナにして
TBraceInfo = record or object
public
constructor Init(beginMark, endMark: String; remove: Boolean);
end
function BraceInfo(beginMark, endMark: String; remove: Boolean): TBraceInfo;
begin
Result.Init(beginMark, endMark, remove);
end;
braceTable[0] := BraceInfo('''', '''', False);
braceTable.Add(BraceInfo('''', '''', False));
braceTable[1].Init('{$', '}', False);
braceTable.Add('{', '}', True);
なんて書けるようにするな。どこまで書きやすくするかは利用頻度次第。
Delphiの定数表記は貧弱だからあまりがんばる余地がない。