Program Restest; {$mode delphi} {$h+} uses gettext; resourcestring Testing = 'Testing :'; First = 'First'; Second = 'Second'; Third = 'Third'; begin { Tell gettext to translate the strings according to the settings in the LANG environment variable remark that the program must be run in the tests directory where the intl subdirectory exists } TranslateResourcestrings('intl/restest.%s.mo'); Writeln(Testing); Writeln(First); Writeln(Second); Writeln(Third); end.