TObjectDictionary komplett durchlaufen

[Uwe Raabe]

Ganz einfach:

Delphi-Quellcode:

var
  pair: TPair<<integer,TUserObject>;
...
  for pair in UserObjectDict do begin
    if aPair.Value<>nil then
    begin
      status := status + Format(';%d_%d',[aPair.Key, aPair.Value.State]);
    end;
  end;