Ich will ne neue Compo basteln. Eine neue Eigenschaft ist das DataSet. Name: FDataSet
Delphi-Quellcode:
type TCSTyp = (tAdresse, tRechnung, tLieferung);
TCSAdressLabel = class(TCSQRRichText)
private
FFelder:TStringList;
FTyp: TCSTyp;
FLinkLabel: tcsAdressLabel;
FDataSet: TDataSet;
procedure MyOnPrint(sender: TObject; var Value: String);
published
property Felder : TStringList read FFelder write FFelder;
property Typ : TCSTyp read FTyp write FTyp;
property DataSet : TDataSet read FDataSet write FDataSet;
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
end;
Im MyOnPrint-Ereignis hab ich ne Variable Tab1 vom Typ TADOTable.
Jetzt will ich das die "virtuelle" Tab die gleiche Connection wie das DataSource das der User ausgewählt hat. In etwa so:
Delphi-Quellcode:
begin
Tab1 := TAdoTable.Create(nil);
try
Tab1.Connection := fDataSet.Connection;
Tab1.Active := false;
finally
Tab1.free;
end;
end;
Krieg aber immer diesen Fehler:
Code:
[Fehler] ucsqcomps.pas(122): Undefinierter Bezeichner: 'Connection'