[NumLock]

2:

Код:

uses
  IniFiles,

var
  h: TStringHash;
begin
  h:=TStringHash.Create;
  h.Add('ab cd', 1);
  h.Add('q=z', 22);
  h.Add('3', 333);
  ShowMessage(IntToStr(h.ValueOf('ab cd')));
  ShowMessage(IntToStr(h.ValueOf('q=z')));
  ShowMessage(IntToStr(h.ValueOf('3')));
  h.Free;
end;

3: http://www.delphikingdom.com/asp/vie...?catalogid=868