- 93 名前：デフォルトの名無しさん mailto:sage [2008/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の定数表記は貧弱だからあまりがんばる余地がない。
|
 |
