Forum: Software-Projekte der Mitglieder
by himitsu,
27. Apr 2010
PInterfaceEntry = ^TInterfaceEntry;
TInterfaceEntry = packed record
IID: TGUID;
VTable: Pointer;
IOffset: Integer;
ImplGetter: Integer;
end;
PInterfaceTable = ^TInterfaceTable;
TInterfaceTable = packed record
Forum: Software-Projekte der Mitglieder
by himitsu,
3. Jan 2010
du könntes eventuell mein TXMLSerializeRecordInfo aus'm himXML verwenden
http://www.delphipraxis.net/internal_redirect.php?t=169095
meine aktuelle Version davon wird (hoffentlich) nächste Woche mit 'ner neuen himXML-Version hochgeladen
Diesem kann man den Recordaufbau übergeben und kann dann die berechneten Offsets der Elemente daraus auslesen und für eine Zuweisung verwenden. (praktisch...
Forum: Software-Projekte der Mitglieder
by himitsu,
28. Sep 2009
Also Funktionen aufrufen oder auf Variableninhalte zugreifen geht natürlich nicht,
aber die "Funktionen" Declared (für Funktionen, Klassen, Konstanten und Variablen) und Defined für Compilerschalter geht.
Ich weiß jetzt nur nicht in welcher Delphiversion das {$IF ...} eingeführt wurde.
{$DEFINE Schalter1}
// dieses
{$IFDEF Schalter1}
{$IFDEF Schalter2}
Forum: Software-Projekte der Mitglieder
by himitsu,
28. Sep 2009
mach die einfach ein nur dann rein, wenn auch nötig ... es muß in aktuellen Versionen ja nicht unbedingt doppelter Ersatz-Code vorhanden sein :angel:
{$IF not Declared(PosEx)}
function PosEx(...): string;
begin
...
end;
{$IFEND}
bzw.
interface