blob: 4702f927a1b4f88c9d31893c518e588961c08bf6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Program Restest;
{$mode delphi}
{$h+}
uses gettext;
resourcestring
Testing = 'Testing :';
First = 'First';
Second = 'Second';
Third = 'Third';
begin
{ Tell gettext to translate the strings
according to the settings in the LANG environment variable
remark that the program must be run in the tests directory
where the intl subdirectory exists }
TranslateResourcestrings('intl/restest.%s.mo');
Writeln(Testing);
Writeln(First);
Writeln(Second);
Writeln(Third);
end.
|
