• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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