1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
Program Example95;
{ Program to demonstrate the SetResourceStrings function. }
{$Mode objfpc}
ResourceString
First = 'First string';
Second = 'Second String';
Var I,J : Longint;
S : AnsiString;
Function Translate (Name,Value : AnsiString; Hash : longint): AnsiString;
begin
Writeln ('Translate (',Name,') => ',Value);
Write ('->');
Readln (Result);
end;
begin
{$ifndef RESSTRSECTIONS}
SetResourceStrings(@Translate);
Writeln ('Translated strings : ');
For I:=0 to ResourceStringTableCount-1 do
For J:=0 to ResourceStringCount(i)-1 do
begin
Writeln (GetResourceStringDefaultValue(I,J));
Writeln ('Translates to : ');
Writeln (GetResourceStringCurrentValue(I,J));
end;
{$else}
Writeln('Functions ResourceStringTableCount, ResourceStringCount and GetResourceStringCurrentValue are inot available for RESSTRSECTIONS');
{$endif}
end.
|
