(*
  Result for my environment:

  THashedStringList: 00:00:00.117
  TFPStringHashTable: 00:00:00.099
  TFPStringHashTable: 00:00:00.088
  THashedStringList: 00:00:00.123
*)

program project1;

{$mode delphi}

uses
  FGL, Classes, SysUtils, Contnrs, IniFiles;

const
  COUNT = 100000; // 100.000
  FMT = 'hh:nn:ss.zzz';
var
  I: Integer;
  B, E: TDateTime;
  Name: string = '';
  Value: string = '';
  SL: TStrings;
  LS: TFPStringHashTable;
begin
  SL := THashedStringList.Create;
  LS := TFPStringHashTable.Create;
  try
    B := Now;
    // add name and value
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      SL.Add(Name + '=' + Name);
    end;
    // get value from name
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      Value := SL.Values[Name];
    end;
    E := Now;
    SL.Clear;
    WriteLn(SL.ClassName, ': ', FormatDateTime(FMT, E - B));

    B := Now;
    // add name and value
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      LS.Add(Name, IntToStr(I));
    end;
    // get value from name
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      Value := LS[Name];
    end;
    E := Now;
    LS.Clear;
    WriteLn(LS.ClassName, ': ', FormatDateTime(FMT, E - B));

    B := Now;
    // add name and value
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      LS.Add(Name, IntToStr(I));
    end;
    // get value from name
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      Value := LS[Name];
    end;
    E := Now;
    LS.Clear;
    WriteLn(LS.ClassName, ': ', FormatDateTime(FMT, E - B));

    B := Now;
    // add name and value
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      SL.Add(Name + '=' + Name);
    end;
    // get value from name
    for I := 1 to COUNT do
    begin
      Name := IntToStr(I);
      Value := SL.Values[Name];
    end;
    E := Now;
    SL.Clear;
    WriteLn(SL.ClassName, ': ', FormatDateTime(FMT, E - B));

    WriteLn('Press [ENTER] to exit ...');
    ReadLn;
  finally
    SL.Free;
    LS.Free;
  end;
end.