mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
25 lines
405 B
ObjectPascal
25 lines
405 B
ObjectPascal
{$mode objfpc}{$h+}
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
resourcestring
|
|
SSunday = 'Sunday';
|
|
|
|
const
|
|
SDays: array[0..0] of string = (SSunday);
|
|
|
|
function Translate(Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
|
|
begin
|
|
Result := 'dimanche';
|
|
end;
|
|
|
|
begin
|
|
SetResourceStrings(@Translate, nil);
|
|
WriteLn(SSunday);
|
|
WriteLn(SDays[0]);
|
|
if SDays[0]<>'dimanche' then
|
|
Halt(1);
|
|
end.
|