Мысли по поводу локализации строк и кодогенерации

Кратенько, в стиле Александра Люлина. Два момента:

а) мне понравилась идея Александра с локализацией, типа

type TLocString = record Key, Value: string; end;

и далее:

var SAskDelete = (Key: 'AskDelete'; Value: 'Удалить?');

и далее:

  if Ask(SAskDelete.Value) then

С одной стороны это удобно, я прям в коде вижу:
  - и переменную
  - и Key
  - и Value по-умолчанию
Но:
  - не очень удобно объявлять такие переменные
  - не очень удобно (и не наглядно) писать ".Value"
Ссылка на идею: (18-ть лет с Delphi - Что ещё умеет наш фреймворк?)

б) у нас используется такой вариант: все строковые переменные объявлены как обычно:

var SAskDelete: string;

инициализируются они (и реагируют на смену языка) в спец. примерно так:

procedure InitResStrings;
begin
  SAskDelete := ResGet('AskDelete', 'Удалить?');
end;

и конечно эта процедура подписывается на обновления

initialization
  ResReg(@InitResStrings);

Такой вариант проще для адаптации существующего кода, но постоянно писать процедуры инициализации - тоже не комильфо. Много кода, который можно "шаблонизировать".
Собственно это у нас и сделано, и я хочу об этом написать отдельно... с примерами и может быть даже с готовым решением.

А пока у меня вот какие мысли в голове. Во-первых, мы наконец-то перешли с Delphi 7 на Delphi 2010 (ну а значит и на новые версии делфей перебраться не проблема). Поэтому можем использовать все нововведения. Я думал, может как-то прикрутить атрибуты. Например так:

type
  TMyForm = class(TBaseForm)
  public
   [ResString('AskSelete', 'Удалить?')]
   SAskSelete: string;
  end;

т.е. я помечаю поле как "ресурсная строка" с ключом и значением по умолчанию.
Тут тоже не всё так красиво. В частности, открыт доступ к полю на запись. Если объявить свойство - то лишняя строчка кода, которую уже не хочется руками набирать - опять повод для кодогенерации.

В общем я по разному крутил. В идеале я хочу получить следующее:
- переменная (или функция, или свойство), которая возвращает ресурсную (локализуемую) строку должна быть только для чтения (записывать могут только спец. методы в момент инициализации/смены языка)
- обращение к переменной в коде должно быть прозрачным
- желательна привязка к контексту (у нас очень много форм, есть вероятность что в двух разных модулях будет переменная с одним и тем же именем)
- желательно ограничить область видимости переменной, например, как поле класса - доступ к переменной возможен только от имени экземпляра класса и при смене языка не надо инициализировать ВСЕ переменные, а только у созданных экземпляров
<эти два пункта у нас реализованы, но с ними можно поспорить>
- возможность по исходнику (либо из приложения в RunTime) сгенерировать файл локализации с языком по-умолчанию (для последующего его перевода).

И есть ещё момент, который может быть не принципиальным, но мы его реализуем. Склонение числительных. Например, в зависимости от кол-ва выделенных строк можно сформировать строку:
0 = 'Нет выделенных строк'
1 = 'Выделена 1 строка'
2 = 'Выделено 2 строки'
5 = 'Выделено 5 строк'
и т.п.

Причём в русском языке есть три формы (строк, строка, строки), а в английском - их две (row, rows).
Вот тут мы в коде пишем что-то типа такого:

  if Ask(SSelectedRows[Cnt] + '. ' + SAskDelete) then

Т.е. результат строки зависит от входного числового параметра.
(А есть ещё денежные суммы с рублями и копейками /долларами центами).


Сейчас у нас это всё реализовано тупо, выглядит примерно так:

[Russian]
SAskDelete = 'Удалить?'
SSelectedRows = ('Выделено %d строк', 'Выделена %d строка', 'Выделено %d строк');
[English]
SAskDelete = 'Delete?'
SSelectedRows = ('Selected %d rows', 'Selected %d row', 'Selected %d rows');

и далее генерится код. И есть функция, которая по числительному определяет форму:
- для русского языка сложнее: (0, 5, 11, 100, нет, много) строк, (1, 21) строка, (2, 3) строки;
- для английского проще: 0 rows, 1 row, >1 rows.

И сейчас я рассматриваю вариант создания некоего DSL, потому что он тут бы подошёл. Нативно для пользователя описать, мол есть строка SSelectedRows, она зависит от числового параметра, и в зависимости от склонения числительного, надо вернуть разные варианты. Или вот зависит от ещё чего-нибудь, например от двух числительных (такое тоже бывает, приходится переформулировать сообщения).