blob: e5af3da681c04e08744672838165976e1f52bb98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Example for use of GNU gettext.
Copyright (C) 2003 Free Software Foundation, Inc.
This file is in the public domain.
Source code of the Pascal program. }
program hello;
{$mode delphi}
uses gettext, { translateresourcestrings }
linux, { getpid }
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,[getpid]));
end.
|