Хэши в Delphi (практически как в Perl'e =) )

[f00rd]

Где-то был вопрос по созданию хэшей в Delphi, но я его не нашел ирешил выложить то, до чего я дошел...

type
  TStringHash = class(TObject)
  private
    values, names:array of string;
    function Get(Name:String):string;
    procedure Put(Name:string;const S:string);
  public
    property Strings[Name: String]: string read Get write Put; default;
    constructor Create;
  end;
...
implementation

{$R *.dfm}

constructor TStringHash.Create;
begin
 inherited Create;

 SetLength(values,0);
 SetLength(names, 0);
end;

procedure TStringHash.Put(Name:string;const S:string);
var
 i:integer;
begin
 for i:=0 to Length(names)-1 do
  begin
   if names[i]=name then
    begin
     values[i]:=s;
     exit;
    end;
  end;

 SetLength(names,Length(names)+1);
 SetLength(values,Length(values)+1);
 names[Length(names)-1]:=name;
 values[Length(values)-1]:=s;
end;

function TStringHash.Get(Name:String):string;
var
 i:integer;
begin
 Result:='';
 if Length(names)=0 then exit;
 for i:=0 to Length(names)-1 do
  begin
   if names[i]=name then
    begin
     Result:=values[i];
     exit;
    end;
  end;
end;

Пример использования:

var
 k:TStringHash;
begin
 k:=TStringHash.Create;
 k['help']:='help me!';
 k['m']:='mamant';

 ShowMessage('help='+k['help']+#13+'m='+k['m']+#13+'none='+k['none']);

 k.Free;

Надеюсь, кому-нить пригодится =)

ЗЫ: конечно этот пример работает не как в Perl'е и требует доработок =)