Überwachte Ausdrücke optimieren?

[stahli]

Da habe ich (mit wenig Zeit) natürlich versucht, aber mir fällt das etwas schwerer als Dir und die mitgelieferten Beispiele hatte ich nicht gefunden.

Ich bin jetzt aber etwas weiter.
Aus dem String "TsoGuid($2F21204) as IsoGuid" extrahiere ich zunächst den Pointer um dort das Interface abzuholen.
Ich weiß nicht, ob der Pointer auf das Objekt oder das Interface verweist. Beide versuchten Casts funktionieren jedoch nicht.
Debugging ist etwas schwierig, da das ja zur Designtime läuft.


Hier mal ein Auszug (auf Grund der Versuche etwas chaotisch).

Delphi-Quellcode:

var
  P: Integer;
  S, SR: string;
  Adr: Integer;
  lGuid: IsoGuid;
  tmpGuid: TsoGuid;
  O: TObject;

    CodeSite.Send(Expression + ' - ' + TypeName + ' - ' + EvalResult);
    // AUSGABE: Guid - IsoGuid - TsoGuid($2F21204) as IsoGuid
    if (TypeName = 'IsoGuid') then
    begin
      Result := 'IsoGuid! => ' + EvalResult;
      SR := EvalResult;
      P := Pos('(', SR);
      S := Copy(SR, 1, P - 1);
      SR := Copy(SR, P + 1);
      if (S = 'TsoGuid') then
      begin
        P := Pos(')', SR);
        S := Copy(SR, 1, P - 1);
        SR := Copy(SR, P + 1);
        Adr := StrToInt(S);
        if (SR = ' as IsoGuid') then
        begin
//          O := TObject(Adr);
//          tmpGuid := TsoGuid(Adr);
//          if Supports(tmpGuid, IsoGuid, lGuid) then
//            Result := '---> IsoGuid'
//          else
//            Result := ':-( ' + IntToHex(Adr, 8) + ' - ' + EvalResult;
//            Result := ':-( ' + O.ClassName;
           Result := IsoGuid(Adr).AsString;
        end;
      end;
      Exit;
    end;

Kann mir jemand nochmal einen Tipp zu dem korrekten Cast geben?
Falls ich zum Ziel komme fasse ich das dann gern für Interessenten hier zusammen.