[РЕШЕНО] Translations, gettext, без LCL

[Brainenjii]

Не могу найти какого-нибудь минимального примера - как можно перевести ResourceString секцию без LCL? И менять тексты ресурсов без перекомпиляции? Спасибо.

[Mr.Smart]

http://freepascal.ru/forum/viewtopic.php?f=5&t=5038#p36710 без LCL чистый FCL.

[Brainenjii]

Это я видел ^_^ Но как пользоваться - не понял

Добавлено спустя 6 минут 21 секунду:
я хочу нечто такого:

Код: Выделить всё

Program SimpleTranslation;
Uses
  MagicTranslatorUnit; // что здесь должно быть?
ResourceString
  rsText  = 'Text';
Begin
  MagicTranslate('/path/to/ru.po');
  WriteLn(rsText); // Текст
  MagicTranslate('/path/to/fr.po');
  WriteLn(rsText); // Texte
End.


разумеется, что в ru.po и fr.po все необходимые переводы есть

[Mr.Smart]

Линука под рукой к сожалению нет, но подозреваю, что функция итератор будет выглядеть как то так:

Код: Выделить всё

function Translate(Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
begin
  Result:=gettext(Value+CRLF);
end;

[Brainenjii]

Если найдёте время - буду просто счастлив полноценному минимальному примеру для консольной программы ^_^

[Sergei I. Gorelkin]

Код: Выделить всё

uses gettext;

begin
  translateresourcestrings('path/to/ru.po');  // все resourcestring переведены.
end;


[Mr.Smart]

Sergei I. Gorelkin интересно. Что-то раньше не замечал. Вот только он использует не .po, а .mo.

[Brainenjii]

КРУТО!!! Спасибо!!!