我有这个峰值来测试TPair。您可以在新的Delphi XE控制台应用程序上复制+粘贴。我用例外标记了这一行:
项目Project1.exe引发异常
带消息的EAccessViolation类
'地址0045042D的访问冲突
在模块“ Project1.exe”中。阅读
地址A9032D0C。
任何的想法 ?
谢谢。
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Generics.Defaults,
Generics.Collections;
type
TProduct = class
private
FName: string;
procedure SetName(const Value: string);
published
public
property Name: string read FName write SetName;
end;
type
TListOfProducts = TObjectDictionary<TProduct, Integer>;
{ TProduct }
procedure TProduct.SetName(const Value: string);
begin
FName := Value;
end;
var
MyDict: TListOfProducts;
MyProduct1: TProduct;
MyProduct2: TProduct;
MyProduct3: TProduct;
APair: TPair<TProduct, Integer>;
aKey: string;
begin
try
MyDict := TListOfProducts.Create([doOwnsKeys]);
MyProduct1 := TProduct.Create;
MyProduct1.Name := 'P1';
MyProduct2 := TProduct.Create;
MyProduct2.Name := 'P2';
MyProduct3 := TProduct.Create;
MyProduct3.Name := 'P3';
MyDict.Add(MyProduct1, 1);
MyDict.Add(MyProduct2, 2);
MyDict.Add(MyProduct3, 3);
APair := MyDict.ExtractPair(MyProduct1);
Writeln(APair.Key.Name); // <--- Error is Here.
Writeln(IntToStr(APair.Value));
Readln(aKey);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
最佳答案
这是一个Delphi错误。 TDictionary<TKey,TValue>.ExtractPair
不分配Result
。
RRUZ位于bug in QC。
该代码显示为:
function TDictionary<TKey,TValue>.ExtractPair(const Key: TKey): TPair<TKey,TValue>;
var
hc, index: Integer;
begin
hc := Hash(Key);
index := GetBucketIndex(Key, hc);
if index < 0 then
Exit(TPair<TKey,TValue>.Create(Key, Default(TValue)));
DoRemove(Key, hc, cnExtracted);
end;
调用
Result
时应分配DoRemove
。解决此错误非常困难。
ExtractPair
是在不破坏键的情况下从词典中获取项目的唯一方法,因此必须调用它。但是,由于它不会返回提取的项目,因此您需要先读取该项目,记住该值,然后调用ExtractPair
。