Na, toll!
Unter einer Demo verstehe ich eigentlich was anderes!
Dass ich meine Komponenten selber erzeugen muss, weiß ich natürlich, hätte aber gedacht, dass sie für eine Demo schon fertig erzeugt werden.
Den Pfad zu den IBDAC-Komponenten hat die Installationsroutine bereits eingetragen.
Was also tun?
In der
Unit steht folgendes:
Delphi-Quellcode:
type
TIbDacForm = class(TDemoForm)
IBCConnection: TIBCConnection;
IBCTransaction: TIBCTransaction;
scCreate: TIBCScript;
scDrop: TIBCScript;
IBCConnectDialog: TIBCConnectDialog;
...
Wenn ich mit der Maus über die TIBCConnection fahre, zeigt sich ein Hinweis
"TIBCConnection - IBC.TIBCConnection"
Das Teil ist also bekannt!
Wenn ich noch ein bisschen genauer nachforsche, finde ich, dass die Quellen
IbDacDemoForm.pas und IbDacDemoForm.dfm
in IbDacDemo\Base\ liegen.
In IbDacDemoForm.dfm wiederum findet sich ein Teil
Delphi-Quellcode:
object IBCConnection: TIBCConnection
DefaultTransaction = IBCTransaction
ConnectDialog = IBCConnectDialog
Left = 553
Top = 8
end
object IBCTransaction: TIBCTransaction
DefaultConnection = IBCConnection
DefaultCloseAction = taCommit
Left = 552
Top = 41
end
object scCreate: TIBCScript
SQL.Strings = (
'
CREATE TABLE DEPT ('
'
DEPTNO INTEGER NOT NULL PRIMARY KEY,'
'
DNAME VARCHAR(14),'
'
LOC VARCHAR(13)'
'
);'
'
'
etc.
etc.
Wenn ich mir aber in der
IDE die Form ansehe, fehlt genau dieser Teil.
Aber nicht nur das ist seltsam!
Am Anfang des Formulars steht in der Originaldatei:
Delphi-Quellcode:
inherited IbDacForm: TIbDacForm
Width = 1036
Height = 503
Caption = '
InterBase Data Access Components demos'
TextHeight = 13
inherited TVSplitter: TSplitter
Height = 377
Color = 6369932
end
inherited MainPanel: TPanel
Width = 809
Height = 377
inherited pnDemo: TPanel
Width = 809
Height = 377
end
inherited pnSource: TPanel
Width = 809
Height = 377
end
end
etc.
etc.
In der
IDE wurde daraus:
Delphi-Quellcode:
inherited IbDacForm: TIbDacForm
Caption = '
InterBase Data Access Components demos'
ClientHeight = 476
ClientWidth = 1028
ExplicitWidth = 1036
ExplicitHeight = 503
PixelsPerInch = 96
TextHeight = 13
inherited TVSplitter: TSplitter
Height = 387
Color = 6369932
ExplicitHeight = 377
end
inherited MainPanel: TPanel
Width = 809
Height = 387
ExplicitWidth = 809
ExplicitHeight = 387
inherited pnDemo: TPanel
Width = 809
Height = 387
ExplicitWidth = 809
ExplicitHeight = 387
end
inherited pnSource: TPanel
Width = 809
Height = 387
ExplicitWidth = 809
ExplicitHeight = 387
end
end
Was macht da Delphi beim Einlesen???