mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-18 06:38:20 +02:00
27 lines
502 B
ObjectPascal
27 lines
502 B
ObjectPascal
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.
|