Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 22. Nov 2005
  Naja, primär hatte ich IsObject() entwickelt weil es sicherer als der Operator is ist. Wird is auf ein falsches Objekt angewendet dann ist garantiert das es AVs hagelt. IsObject() macht nun eigentlich das was ich vom is Operator erwartet hätte, es erzeugt keine AVs sondern kehrt in diesem Falle mit FALSE zurück.
  
  Man muß sich mal die Verwendung vom is Operator vergegenwärtigen:
  
  
  
  if...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 21. Nov 2005
  1.) die Wahrscheinlichkeit ist bei nicht multithreaded Anweendung exakt 100%. Der Borland MM merkt sich speziell den zu letzt freigegebenen Speicherblock und überprüft bei einer erneuten Allozierung ob das Speicherbereich in den alten zuvor freigegebenen reinpasst. Er verwendet also als erste und schnellste Alternative immer den zuvor freigegebenen Speicher wieder. Im Falle das also der neue...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 6. Feb 2004
  EBX, Kylix und seine GOT (Global Object Table, übrigens) ist schon eines der schlimmsten Probleme, aber normalerweise wird ein Überschreiben von EBX ohne Sicherung schon in Windows Programmen für massiven Ärger sorgen. Mit Windows API hat das wenig zu tun, es liegt am Compiler der davon ausgeht das Unterproceduren EBX nicht verändern. Also nutzt er diese Festlegung auch intensiv.
  
  
  
  Ja kann...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 5. Feb 2004
  Hier der Code um über die TypInfo's zu iterieren
  
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Buttons, StdCtrls, TypInfo;
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 5. Feb 2004
  Hi Choose,
  
  deine Assembler Funktionen sind buggy, leider :)
  
  1.) Du benutzt EBX ohne es vorher zu sichern, eg. PUSH/POP
  2.) IsBadReadPtr() ist zwar eine Funktion die überprüfen soll ob ein Zeiger gültig ist, sie funktioniert nur leider nicht so wie erwartet. D.h. IsBadReadPtr(KernelSpeicher) würde FALSE ergeben, ein Zugriff auf KernelSpeicher^ aber denoch eine Zugriffsverletzung auslösen
  ...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 5. Feb 2004
  Hi Choose,
  
  ich hatte hier im Forum schon mal einen solchen Code gepostet. Dieser Source konnte über alle deklarierten TypInfos der geladenenen Module iterieren. D.h. alle TypInfos die auch mit der Funktion TypInfo(XYZ) abgefragt werden können konnten mit der Funktion EnumTypeInfo() durchiteriert werden.
  
  Nun, ich habe danch im Forum gesucht und konnte es nicht mehr finden, vielleicht findest...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 4. Feb 2004
  Hi Choose,
  
  deine Überprüfung auf zirkuläre Referenzen ist ebenfalls nicht 100%'tig sicher. Angenommen die Klasse ist die 10'te Klasse in einer Hirarchie. Dann würde deine Absicherung im Source nur mit 1/(10*10)'tel besser sein als garkeine Überprüfung auf zirkuläre Referenzen. Denn es kann an jeder Stelle der VTM.Parent Hierarchie die zirkulare Referenz zu jeder der anderen Klassen in der...
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 4. Feb 2004
  @Choose:
  
  hier ist mein Code aus dem DEC -> Unit DECutil.pas
  
  
  function IsClass(AObject: Pointer; AClass: TClass): Boolean; assembler; register;
  asm // safer replacement for Borland's "is" operator
  @@1: TEST EAX,EAX
  JE @@3
  MOV EAX,
• Forum: Object-Pascal / Delphi-Language

  Re: IsObject / IsClass

    Delphi
    by negaH, 3. Feb 2004
  Ich weiß nicht welchen Code du von IsObject() von mir analysiert hast. Meine isObject() Funktion fragt nicht ab ob der Speicherzeiger ein Magic enthält. Dies darf er auch garnicht, da es ja nicht gesagt ist das der Borland MM benutzt wird. IsObject() überprüft so wie die Borland Funktion "is" ob es sich um ein gültiges Object abgeleitet von TObject handelt. Dabei lädt sie die VMT der...