Compiler-Version abfragen
{$IF CompilerVersion=|>=|<=[nn]} Liste mit Versionen:
Softwareentwicklung
Softwareentwicklung
{$IF CompilerVersion=|>=|<=[nn]} Liste mit Versionen:
Erstellen einer Tabellen-Klasse: [SOTable('CUSTOMER')] // Name der Tabelle in der Datenbank TCustomer = class(TStorableObject) private sName : String; public [SOField('CUS_ID', ftAutoInc, 0, 'ID', [sflPrimaryKey])] property ID; // Ist bereits in der Basisklasse TStorableObject deklariert und muss nur veröffentlicht werden. …
uses CommCtrl; var r : TRect; ListView_GetSubItemRect(Handle,ItemIndex,SubItemIndex,LVIR_BOUNDS,@r);