1{ Example for use of GNU gettext. 2 This file is in the public domain. 3 4 Source code of the Pascal program. } 5 6program hello; 7{$mode delphi} 8 9uses gettext, { translateresourcestrings } 10 linux, { getpid } 11 sysutils; { format } 12 13resourcestring 14 hello_world = 'Hello, world!'; 15 running_as = 'This program is running as process number %d.'; 16 17begin 18 translateresourcestrings({$i %LOCALEDIR%}+'/%s/LC_MESSAGES/hello-pascal.mo'); 19 writeln(hello_world); 20 writeln(format(running_as,[getpid])); 21end. 22