Komisch, ich habe mir mal zur Fehlersuche den Inhalt des Dictionarys ausgeben lassen.
Dann hat es funktioniert - auch nach Entfernen der Logs.
Da hatte wohl der Linker irgend etwas verwurschtelt...?
Delphi-Quellcode:
// CodeSite.Send('Get:' + IntToStr(MyDict.Count));
// for Key in MyDict.Keys do
// begin
// S1 := Key.AsString;
// Value := nil;
// MyDict.TryGetValue(Key, Value);
// if Assigned(Value) then
// S2 := Value.Guid.AsString
// else
// S2 := 'nil';
// CodeSite.Send(S1 + ': ' + S2);
// end;
if not MyDict.TryGetValue(aGuid, lGuid) then
System.SysUtils.Beep;
Ich werde mal mit Dictionarys weiter arbeiten.
Danke für die Infos!