home *** CD-ROM | disk | FTP | other *** search
- 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.
-