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