unit langFrench;
interface
procedure SetLanguage;
implementation
uses unTranslation;
procedure SetLanguage;
begin
// Misc strings
AddStr( 1, 'Choisissez "Nouveau" pour cr閑r ou "O
unit BinIntf;
interface
type
IOneDBin = interface
['{7856B7E3-EF75-11D2-B3AB-0040F67455FE}']
procedure SetMaxValue(AMaxValue: Integer);
procedure AddItem(AQuantity: Integer; AD
unit BinIntf;
interface
type
IOneDBin = interface
['{7856B7E3-EF75-11D2-B3AB-0040F67455FE}']
procedure SetMaxValue(AMaxValue: Integer);
procedure AddItem(AQuantity: Integer; AD
AND
ARRAY
BEGIN
BY
CASE
CONST
DEFINITION
DIV
DO
ELSE
ELSIF
END
EXIT
EXPORT
FOR
FROM
IF
IMPLEMENTATION
IMPORT
IN
LOOP
MOD
MODULE
NOT
OF
OR
POINTER
PROCEDURE
QUALIFIED
RECOR
else
exit
terminate
type
raise
range
reverse
declare
end
record
exception
not
then
return
separate
select
digits
renames
subtype
elsif
function
for
package
procedure
private
w
with
array
and
function
case
var
const
until
then
set
record
program
procedure
or
packed
not
nil
label
in
repeat
of
goto
forward
for
while
file
else
downto
do
div
to
typ
