File: hello.pas

package info (click to toggle)
gettext 0.18.3.1-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 89,640 kB
  • ctags: 44,040
  • sloc: ansic: 349,778; sh: 54,426; makefile: 8,491; perl: 4,181; lisp: 3,369; cpp: 673; yacc: 665; java: 613; cs: 578; sed: 369; objc: 337; awk: 80; tcl: 63; pascal: 11; php: 8
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.