Zitat von
MaBuSE:
Hallo Hagen, kannst Du bitte mal den Source für Delphi 7 posten?
@Hagen: Falls Du diese Änderung meintest, die ist in dem File schon enthalten -> Also einfach meinen letzten Beitrag ignorieren
Hagen schrieb in
http://www.delphipraxis.net/internal...=128809#128809 :
Zitat von
negaH:
Der obige Code ist von mir für Delphi 2 bis 6 entwickelt und getestet wurden. Er ist aber auch wie man sieht eine "Quick&Dirty" Lösung, d.h. ich habe sie nicht "schön" gemacht. Die einzigste Änderung die man für D7 machen muß ist in
if (PDWord(P)^ = DWord(K)) and (PByte(K)^ > 0) and (PByte(K)^ < 18) then // Info.Kind in ValidRange.D6
Der Wert 18 könnte durch
... <= Integer(High(TTypeKind)) then
ersetzt werden. Dann wäre es automatisch durch neucompilieren für alle Delphi Versionen gültig.