File: hello.pas

package info (click to toggle)
gettext 0.23.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 168,104 kB
  • sloc: ansic: 532,579; sh: 68,252; perl: 28,011; makefile: 9,066; lisp: 3,184; yacc: 1,055; java: 615; cs: 589; cpp: 397; objc: 343; sed: 79; tcl: 63; xml: 40; pascal: 11; php: 7; awk: 7
file content (20 lines) | stat: -rw-r--r-- 489 bytes parent folder | download | duplicates (13) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
{ Example for use of GNU gettext.
  This file is in the public domain.

  Source code of the Pascal program.  }

program hello;
{$mode delphi}

uses gettext,  { translateresourcestrings }
     sysutils; { format }

resourcestring
  hello_world = 'Hello, world!';
  running_as = 'This program is running as process number %d.';

begin
  translateresourcestrings({$i %LOCALEDIR%}+'/%s/LC_MESSAGES/hello-pascal.mo');
  writeln(hello_world);
  writeln(format(running_as,[GetProcessID]));
end.