1 2 3 4 5 6 7 8 9 10 11 12 13
| procedure translat(Nav:TDBNavigator;lg:string) ;
var SL:TStringList;
begin
SL:= TStringList.Create;
if lg='Fr' then
SL.AddStrings(['Premier', 'Précédent', 'Suivant', 'Dernier', 'Insérer', 'Supprimer',
'Éditer', 'Poster', 'Abandonner', 'Rafraîchir'])
else if lg='Ar' then
SL.AddStrings(['اول', 'سابق', 'قادم', 'اخير', 'ضف', 'احدف',
'اكتب', 'سجل', 'الغ', 'جدد']);
Nav.Hints:= SL;
SL.free;
end; |
Partager