blob: 1d2a016c66a04b8f3999c7312364969acc3cbe1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example90;
{ Program to demonstrate the GetResourceStringCurrentValue function. }
{$Mode Delphi}
ResourceString
First = 'First string';
Second = 'Second String';
Var I,J : Longint;
begin
{ Print current values of all resourcestrings }
For I:=0 to ResourceStringTableCount-1 do
For J:=0 to ResourceStringCount(i)-1 do
Writeln (I,',',J,' : ',GetResourceStringCurrentValue(I,J));
end.
|
