| 123456789101112131415161718 |
- Program Example91;
- { Program to demonstrate the GetResourceStringDefaultValue function. }
- {$Mode Delphi}
- ResourceString
- First = 'First string';
- Second = 'Second String';
- Var I,J : Longint;
- begin
- { Print default values of all resourcestrings }
- For I:=0 to ResourceStringTableCount-1 do
- For J:=0 to ResourceStringCount(i)-1 do
- Writeln (I,',',J,' : ',GetResourceStringDefaultValue(I,J));
- end.
|
