Having compiled a program with resourcestrings is not enough to internationalize your program.
At run-time, the program must initialize the string tables with the correct values for the language
that the user selected. By default no such initialization is performed. All strings are initialized with
their declared values.
The objpas unit provides the mechanism to correctly initialize the string tables. There is no need to
include this unit in a uses clause, since it is automatically loaded when a program or unit is
compiled in Delphi or objfpc mode. Since one of these mode is required to use resource strings,
the unit is always loaded when needed anyway.
The resource strings are stored in tables, one per unit, and one for the program, if it contains a
resourcestring section as well. Each resourcestring is stored with its name, hash value, default
value, and the current value, all as AnsiStrings.
The objpas unit offers methods to retrieve the number of resourcestring tables, the number of
strings per table, and the above information for each string. It also offers a method to set the
current value of the strings.
Here are the declarations of all the functions:
Function ResourceStringTableCount : Longint;
Function ResourceStringCount(TableIndex: longint): longint;
Function GetResourceStringName(TableIndex,
StringIndex: Longint): Ansistring;
Function GetResourceStringHash(TableIndex,
StringIndex: Longint): Longint;
Function GetResourceStringDefaultValue(TableIndex,
StringIndex: Longint): AnsiString;
Function GetResourceStringCurrentValue(TableIndex,
StringIndex: Longint): AnsiString;
Function SetResourceStringValue(TableIndex,
StringIndex : longint;
Value: Ansistring): Boolean;
Procedure SetResourceStrings (SetFunction: TResourceIterator);
Two other function exist, for convenience only:
Function Hash(S: AnsiString): longint;
Procedure ResetResourceTables;
Here is a short explanation of what each function does. A more detailed explanation of the
functions can be found in the Reference Guide.
-
ResourceStringTableCount
- returns the number of resource string tables in the program.
-
ResourceStringCount
- returns the number of resource string entries in a given table (tables
are denoted by a zero-based index).
-
GetResourceStringName
- returns the name of a resource string in a resource table. This
is the name of the unit, a dot (.) and the name of the string constant, all in lowercase.
The strings are denoted by index, also zero-based.
-
GetResourceStringHash
- returns the hash value of a resource string, as calculated by the
compiler with the Hash function.
-
GetResourceStringDefaultValue
- returns the default value of a resource string, i.e. the
value that appears in the resource string declaration, and that is stored in the binary.
-
GetResourceStringCurrentValue
- returns the current value of a resource string, i.e. the
value set by the initialization (the default value), or the value set by some previous
internationalization routine.
-
SetResourceStringValue
- sets the current value of a resource string. This function must
be called to initialize all strings.
-
SetResourceStrings
- giving this function a callback will cause the calback to be called for
all resource strings, one by one, and set the value of the string to the return value of
the callback.
Two other functions exist, for convenience only:
-
Hash
- can be used to calculate the hash value of a string. The hash value stored in the tables
is the result of this function, applied on the default value. That value is calculated
at compile time by the compiler: having the value available can speed up translation
operations.
-
ResetResourceTables
- will reset all the resource strings to their default values. It is called
by the initialization code of the objpas unit.
Given some Translate function, the following code would initialize all resource strings:
Var I,J : Longint;
S : AnsiString;
begin
For I:=0 to ResourceStringTableCount-1 do
For J:=0 to ResourceStringCount(i)-1 do
begin
S:=Translate(GetResourceStringDefaultValue(I,J));
SetResourceStringValue(I,J,S);
end;
end;
Other methods are of course possible, and the Translate function can be implemented in a variety
of ways.