mingw/share/doc/gettext/examples/hello-pascal/hello.pas

   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.