|
ｿｽ@ｿｽｿｽGenerics.Collections.TDictionaryｿｽ@ｿｽﾌ ContainsValue
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽEｿｽHｿｽｿｽｿｽX 2011/02/10(ｿｽｿｽ) 12:04:51
ｿｽWｿｽLｿｽﾌ鯉ｿｽｿｽAｿｽGｿｽｿｽｿｽoｿｽJｿｽfｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽGｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAContainsValueｿｽﾌ難ｿｽｿｽがｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
D2010,WinXpSp3ｿｽﾅゑｿｽｿｽB
uses ｿｽEｿｽEｿｽEGenerics.Collections
type
TCity = record
Country : string;
Latitude : Integer;
Longitude : Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Dictionary : TDictionary<String, TCity>;
City,City2 : TCity;
exist : boolean;
begin
Dictionary := TDictionary<String, TCity>.Create;
Dictionary.Clear;
Button1.Caption := Dictionary.ToString;
City.Country := 'ｿｽCｿｽMｿｽｿｽｿｽX';
City.Latitude := 515;
City.Longitude := -17;
Dictionary.Add('ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ', City);
exist := Dictionary.ContainsValue(City);
ShowMessage(BoolToStr(exist, true));
// FalseｿｽEｿｽEｿｽEｿｽﾈゑｿｽｿｽHｿｽH
City2 :=Dictionary.Items['ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ'];
exist := Dictionary.ContainsValue(City2);
ShowMessage(BoolToStr(exist, true));
// True
if ( City.Country = City2.Country ) and
( City.Latitude = City2.Latitude ) and
( City.Longitude = City2.Longitude )
then
ShowMessage('ｿｽｿｽｿｽｿｽ')
else
ShowMessage('ｿｽ痰､');
//ｿｽｿｽｿｽｿｽ
Dictionary.Destroy;
end;
ｿｽﾉゑｿｽｿｽｿｽ 2011/02/10(ｿｽｿｽ) 12:41:16
ｿｽ闌ｳｿｽｿｽDelphiｿｽｿｽｿｽﾈゑｿｽｿｽﾌで予ｿｽzｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽAｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽ痰､ｿｽｿｽｿｽﾟゑｿｽFalseｿｽﾈのでは？
TCityｿｽﾉ、EqualｿｽｿｽｿｽZｿｽq(NotEqualｿｽｿｽｿｽZｿｽqｿｽｿｽHｿｽjｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽﾆ幸ｿｽｿｽｿｽﾉなるかｿｽｿｽﾅゑｿｽｿｽB
ｿｽEｿｽFｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ 2011/02/10(ｿｽｿｽ) 17:20:35
AddｿｽｿｽTDictionaryｿｽｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾛ、Cityｿｽｿｽｿｽﾌゑｿｽﾌではなゑｿｽｿｽｿｽｿｽﾌコｿｽsｿｽ[ｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽｿｽCityｿｽｿｽDictionary['ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ']ｿｽﾍ別包ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ、City2ｿｽｿｽDictionary['ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ']ｿｽｿｽｿｽﾌゑｿｽﾌゑｿｽｿｽﾔゑｿｽｿｽｿｽ驍ｽｿｽﾟ難ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽATDictionaryｿｽｿｽTValueｿｽﾌ費ｿｽrｿｽﾍ外ｿｽｿｽｿｽｿｽｿｽｿｽｿｽrｿｽｿｽｿｽ@ｿｽｿｽpｿｽﾓゑｿｽｿｽｿｽｿｽiｿｽｿｽｿｽﾈゑｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽTEqualityComparer<TValue>.Defaultｿｽｿｽｿｽｿｽrｿｽﾖ撰ｿｽｿｽﾆゑｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽrecordｿｽﾌ場合ｿｽﾍ難ｿｽeｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾆゑｿｽｿｽﾄみゑｿｽｿｽPｿｽｿｽｿｽｿｽrｿｽﾉなゑｿｽﾜゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽIｿｽﾉは単ｿｽﾈゑｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾅゑｿｽｿｽｿｽstringｿｽｿｽｿｽrｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA
ｿｽｿｽｿｽgｿｽﾌ包ｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽうｿｽﾆポｿｽCｿｽｿｽｿｽ^ｿｽﾌ指ｿｽｿｽｿｽ齒奇ｿｽｿｽｿｽ痰ｦｿｽｿｽFalseｿｽｿｽｿｽﾔゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽﾅはオｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽZｿｽqｿｽｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、
ｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾊは変ゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
stringｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾃ的ｿｽｿｽCharｿｽzｿｽｿｽﾉ変更ｿｽｿｽｿｽ驍ｱｿｽﾆでゑｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾔゑｿｽﾜゑｿｽｿｽｿｽｿｽA
TCityｿｽｿｽLｿｽ[ｿｽﾆゑｿｽｿｽｿｽTDictionaryｿｽｿｽｿｽｿｽｿｽｿｽﾂ搾ｿｽｿｽA
Createｿｽｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽComparerｿｽｿｽnｿｽｿｽｿｽﾄゑｿｽ驍ｱｿｽﾆでゑｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽnｿｽbｿｽVｿｽｿｽｿｽlｿｽﾅ搾ｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽContainsKeyｿｽﾉ対ゑｿｽｿｽA
ContainsValueｿｽｿｽforｿｽﾅ擾ｿｽｿｽﾔに抵ｿｽｿｽﾗてゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾈので低速ｿｽﾅゑｿｽｿｽB
ｿｽpｿｽﾉゑｿｽContainsValueｿｽｿｽﾄぶ可能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ鯉ｿｽﾒゑｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽHｿｽｿｽｿｽX 2011/02/15(ｿｽｿｽ) 12:38:49
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽAｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
type
TCity = record
public
Country : string;
Latitude : Integer;
Longitude : Integer;
class operator Equal ( A, B : TCity ) : Boolean;
class operator NotEqual( A, B : TCity ) : Boolean;
end;
class operator TCity.Equal(A, B: TCity): Boolean;
begin
Result := false;
if (A.Country = B.Country ) and
(A.Latitude = B.Latitude ) and
(A.Longitude= B.Longitude) then
Result := True;
end;
class operator TCity.NotEqual(A, B: TCity): Boolean;
begin
Result := True;
if (A.Country = B.Country ) and
(A.Latitude = B.Latitude ) and
(A.Longitude= B.Longitude) then
Result := false;
end;
ｿｽﾆゑｿｽｿｽｿｽﾆ、
if City=City2 thenｿｽ@ｿｽEｿｽEｿｽE
ｿｽﾌようｿｽﾉでゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽiDelphiｿｽﾅ会ｿｽｿｽZｿｽqｿｽﾌオｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾍ擾ｿｽｿｽﾟて使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽEｿｽFｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽﾌ仰ゑｿｽlｿｽﾉ難ｿｽｿｽｿｽﾍ変ゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽEｿｽFｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾉ抵ｿｽｿｽJｿｽﾈ会ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>stringｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾃ的ｿｽｿｽCharｿｽzｿｽｿｽﾉ変更ｿｽｿｽｿｽ驍ｱｿｽｿｽ
ｿｽﾅでゑｿｽｿｽ驍ｱｿｽﾆはわかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍバｿｽCｿｽiｿｽｿｽｿｽｿｽrｿｽﾈゑｿｽﾅゑｿｽｿｽﾋ。
>Createｿｽｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽComparerｿｽｿｽnｿｽｿｽｿｽﾄゑｿｽ驍ｱｿｽｿｽ
ｿｽﾍ、ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽﾉは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽOｿｽOｿｽｿｽｿｽﾄゑｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで・ｿｽE
ｿｽﾉゑｿｽｿｽｿｽ 2011/02/15(ｿｽｿｽ) 12:49:12
ｿｽｿｽｿｽZｿｽqｿｽﾌオｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽﾄゑｿｽｿｽﾏみまゑｿｽｿｽｿｽB
ｿｽpｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://docwiki.embarcadero.com/CodeExamples/en/Generics_Defaults_TEqualityComparer_(Delphi)
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽStringｿｽ^ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽTCityｿｽﾆゑｿｽｿｽﾄ搾ｿｽｿｽｿｽﾄゑｿｽｿｽﾎよいｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
au 2011/02/15(ｿｽｿｽ) 14:01:49
TCityｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄクｿｽｿｽｿｽXｿｽﾅ宣言ｿｽｿｽｿｽｿｽ Equalsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TCityｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ^ｿｽﾅなゑｿｽｿｽﾆ駄目な場合ｿｽﾍ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽEｿｽHｿｽｿｽｿｽX 2011/02/16(ｿｽｿｽ) 09:33:33
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ確ｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
GetHashCodeｿｽｿｽｿｽｿｽﾈらずｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾟなゑｿｽﾅゑｿｽｿｽﾋ。ｿｽiｿｽ除ｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽj
GetHashCodeｿｽﾍゑｿｽｿｽﾈりいｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾒ通り動ｿｽすｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽﾆゑｿｽEｿｽEｿｽB
ｿｽnｿｽbｿｽVｿｽｿｽｿｽlｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽﾈんだゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽEｿｽHｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽTｿｽbｿｽpｿｽｿｽｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
au ｿｽｿｽｿｽｿｽAｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾅの会ｿｽｿｽZｿｽqｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽiｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽHｿｽjｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBHelpｿｽｿｽｿｽﾆ出ｿｽｿｽｿｽｿｽlｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
type
Myclass = record // class ｿｽﾉゑｿｽｿｽｿｽﾆコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽsｿｽ¥ｿｽBrecordｿｽﾈゑｿｽOK
private
F: Integer;
public
class operator Add(a, b: Myclass): Myclass;
constructor create(I: Integer);
end;
constructor Myclass.create(I: Integer);
begin
F := I;
end;
class operator Myclass.Add(a, b: Myclass): Myclass;
begin
Result.F := a.F + b.F;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Ctest1, Ctest2, Ctest3: Myclass;
begin
Ctest1 := Myclass.create(1);
Ctest2 := Myclass.create(2);
Ctest3 := Myclass.create(0);
Ctest3 := Ctest1 + Ctest2;
ShowMessage(IntToStr(Ctest3.F));
end;
au 2011/02/16(ｿｽｿｽ) 10:29:51
ｿｽｿｽｿｽZｿｽqｿｽﾌオｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽrecordｿｽ^ｿｽﾅゑｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾛゑｿｽｿｽﾅゑｿｽｿｽﾋ。
Dictionaryｿｽﾉ難ｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ的ｿｽｿｽｿｽｿｽEqualsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾄのゑｿｽTObjectｿｽﾅ宣言ｿｽｿｽｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽｿｽｿｽﾂゑｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽ{ｿｽﾆゑｿｽｿｽﾌ会ｿｽｿｽZｿｽqｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾈらこｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍ駄目でゑｿｽｿｽﾋ。
TCity = class(TObject)
Country : string;
Latitude : Integer;
Longitude : Integer;
function Equals(V: TObject): boolean; override;
end;
function TCity.Equals(V: TObject): boolean;
var
V1: TCity;
begin
if V is TCity then
begin
V1 := V as TCity;
if AnsiSameText(V1.Country, Country)
And (V1.Latitude = Latitude) And (V1.Longitude = Longitude) then
Result := True
else
Result := False;
end else
Result := False;
end;
ｿｽEｿｽFｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ 2011/02/16(ｿｽｿｽ) 15:37:51
ｿｽｿｽGetHashCodeｿｽﾍゑｿｽｿｽﾈりいｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾒ通り動ｿｽすｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽﾆゑｿｽEｿｽEｿｽB
ｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽlｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽﾈんだゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽEｿｽHｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽTｿｽbｿｽpｿｽｿｽｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TDictionaryｿｽﾌ場合ｿｽAｿｽgｿｽpｿｽｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽlｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ32bitｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
ｿｽﾇれだｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽﾈハｿｽbｿｽVｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ必ｿｽｿｽｿｽﾕ突ゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌで、ｿｽﾕ突ゑｿｽｿｽｿｽｿｽ鼾ｿｽﾍ難ｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽ轤ｵｿｽﾄ格ｿｽ[ｿｽｿｽｿｽｿｽ謔､ｿｽﾉでゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽlｿｽｿｽｿｽﾕ突ゑｿｽｿｽｿｽﾆ格ｿｽ[ｿｽｿｽｿｽAｿｽﾇみ出ｿｽｿｽｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽﾊな擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽKｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾄ疎ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾉ遅ｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽﾅ茨ｿｽｿｽﾌ場合ｿｽzｿｽｿｽｿｽforｿｽﾅ回して探ｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽATDictionaryｿｽｿｽgｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽﾋ。
ｿｽKｿｽｿｽｿｽnｿｽbｿｽVｿｽｿｽｿｽﾖ撰ｿｽｿｽﾍ搾ｿｽｿｽｿｽｿｽ¥ｿｽﾈゑｿｽﾌゑｿｽGenerics.Defaultsｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽifunction BobJenkinsHash(const Data; Len, InitData: Integer): Integerｿｽj
ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎ搾ｿｽｿｽpｿｽxｿｽﾌ衝突は費ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽgｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽ痰ｦｿｽﾎ包ｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽ S ｿｽﾌハｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA
Result := BobJenkinsHash(S[1], Length(S) * SizeOf(S[1]), 0);
ｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅ鯉ｿｽﾌ茨ｿｽｿｽｿｽｿｽﾍ会ｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾊ擾ｿｽｿｽ0ｿｽｿｽwｿｽ閧ｷｿｽｿｽﾎ厄ｿｽ閧ｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽEｿｽHｿｽｿｽｿｽX 2011/02/17(ｿｽｿｽ) 12:20:59
auｿｽｿｽｿｽｿｽAｿｽEｿｽFｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
recordｿｽｿｽclassｿｽﾉゑｿｽｿｽ驍ｾｿｽｿｽｿｽｿｽContainsValueｿｽﾍ思ｿｽｿｽｿｽﾄゑｿｽｿｽ體ｮｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽiEqualsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽj
Equalsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍゑｿｽﾍり＝ｿｽｿｽｿｽZｿｽqｿｽﾆは関係ｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
BobJenkinsHashｿｽ@ｿｽﾉ関ゑｿｽｿｽﾜゑｿｽｿｽﾄは、
http://stackoverflow.com/questions/1611636/how-to-create-a-case-in-sensitive-tequalitycomparer-for-tdictionary
ｿｽﾅ鯉ｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽJｿｽﾈ会ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphiｿｽﾌ包ｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄは暦ｿｽｿｽｿｽｿｽｿｽくて具ｿｽJｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiclassｿｽﾌ会ｿｽｿｽZｿｽqｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾍゑｿｽﾍゑｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈ？ｿｽj
au 2011/02/17(ｿｽｿｽ) 16:22:49
EqualsｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽhｿｽｿｽｿｽXｿｽﾌ費ｿｽrｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、TCityｿｽｿｽｿｽｿｽCreateｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽlｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽﾄ片包ｿｽｿｽｿｽDictionaryｿｽﾉ登ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽﾉなるかｿｽﾆ。
procedure TForm1.Button2Click(Sender: TObject);
var
Dictionary : TDictionary<String, TCity>;
City : TCity;
City2 : TCity;
exist : boolean;
begin
Dictionary := TDictionary<String, TCity>.Create;
Dictionary.Clear;
Button1.Caption := Dictionary.ToString;
City := TCity.Create;
City.Country := 'ｿｽCｿｽMｿｽｿｽｿｽX';
City.Latitude := 515;
City.Longitude := -17;
Dictionary.Add('ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ', City);
City2 := TCity.Create;
City2.Country := 'ｿｽCｿｽMｿｽｿｽｿｽX';
City2.Latitude := 515;
City2.Longitude := -17;
exist := Dictionary.ContainsValue(City2);
ShowMessage(BoolToStr(exist, true));
FreeAndNil(City2);
FreeAndNil(City);
FreeAndNil(Dictionary);
end;
