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
]));