Tak sie zastanawiam może ktoś podsunie jakiś pomysł.
Chciałbym zrobic w programie aby użytkownicy mogli sobie we własnym
zakresie zrobić tłumaczenie dla dowolnego języka. Tutaj z pomocą
przychodzi getText i jeżeli chodzi o formatki i zasoby typu string to
nie ma problemu.
Problem jest tylko o tłumaczenie tego co jest przechowywane w słownikach.
Pojawiają mi sie dwie koncepcje:
-w słowniku będą dodatkowe kolumny dla dodatkowych tłumaczeń
czyli w zależności od wersji jezykowej zapytania bedą wyglądać :
select ID, NAME_pl_PL from SLOWNIK_1;
select ID, NAME_es_ES from SLOWNIK_1;
select ID, NAME from SLOWNIK_1;
(wady: dodanie nowego języka wymaga modyfikacji tabel)
- druga koncepcja to onGetText dla pola tekstowego wyświetlać
przetłumaczone dane.
procedure TForm1.NAMEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
text := _(text);
end;
Ktoś może ma jeszcze inne ciekawe pomysły ?
Kornik
|