mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 15:14:06 +01:00
30 lines
604 B
ObjectPascal
30 lines
604 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. $Log$
|
|
end. Revision 1.3 2002-09-07 15:15:28 peter
|
|
end. * old logs removed and tabs fixed
|
|
end.
|
|
}
|