1 { Example for use of GNU gettext.
2 This file is in the public domain.
4 Source code of the Pascal program. }
9 uses gettext, { translateresourcestrings }
13 hello_world = 'Hello, world!';
14 running_as = 'This program is running as process number %d.';
17 translateresourcestrings({$i %LOCALEDIR%}+'/%s/LC_MESSAGES/hello-pascal.mo');
19 writeln(format(running_as,[GetProcessID]));