blob: 4d91d356e3aef8318fc7ede89e70184487bd6ce5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Program Example93;
{ Program to demonstrate the Hash function. }
{$Mode Delphi}
ResourceString
First = 'First string';
Second = 'Second String';
Var I,J : Longint;
begin
For I:=0 to ResourceStringTableCount-1 do
For J:=0 to ResourceStringCount(i)-1 do
If Hash(GetResourceStringDefaultValue(I,J))
<>GetResourceStringHash(I,J) then
Writeln ('Hash mismatch at ',I,',',J)
else
Writeln ('Hash (',I,',',J,') matches.');
end.
|
