#1 HashMap 建议
建议将 FList: array of TCnHashMapRec;
移到 protected
使得继承的类可以输出 FList 列表，不需要每次都跑 GetNext，这不是线程安全的

TWgs = array of TWg;

function TWgMap.GetList: TWgs;
var
i,j: Integer;
begin
SetLength(Result, Size);
j := 0;

for I := Low(FList) to High(FList) do begin
if FList[i].HashCode < 0 then Continue;

Result[j] := PWg(Pointer(Integer(FList[i].Value)))^;
inc(j);
end;
end;

[[i] 本帖最后由 wuyou ..

#1 >>Next Page

Forum:CnVCL 组件包
Thread:HashMap 建议
Next Thread:Delphi的伸缩面板插 ...