Tab1.Connection = Vom User ausgewähltes DataSet.Connection

[Nalincah]

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'

[MrSpock]

Hallo General2003,

das Objekt dataSet hat keine Eigenschaft "connection".

Wenn TAdoTable die Eigenschaft Connection kennt und du sicher bist, dass FDataSet vom Typ TAdoTable ist, könntest du schreiben:

Tab1.Connection := (fDataSet as TAdoTable).Connection; oder vorher abfragen:

if fDataSet is TAdoTable then ...

[Nalincah]

Jo, danke. Hab das jetzt so gemacht:

Tab1.Connection := TADOTable(fDataSet).Connection;

Ist doch im Prinzip das gleiche, oder?

[MrSpock]

Hallo General2003,

ja, das ist das Gleiche, aber wenn fDataSet nicht vom gecasteten Typ ist knallt es im Programm .

[Nalincah]

Ich weiß, aber das wird abgefangen. Das ist ein Editor und der User kann nur aus ADO-Table.Datasets wählen