Forum: Datenbanken
Delphi
by Sir Rufo,
3. Dez 2014
Natürlich gibt es was Besseres und das wurde dort auch genannt.
Diese Lösung wurde als Schmuddelnotlösung bezeichnet und ist eigentlich noch schlimmer.
Forum: Datenbanken
Delphi
by Sir Rufo,
3. Dez 2014
Das tut doch schon beim Schreiben weh, oder?
procedure TDM_Systemoptionen.DataModuleCreate(Sender: TObject);
var
ADOQuery: TADOQuery;
I: Integer;
begin
inherited;
DM_Systemoptionen := Self;
Forum: Datenbanken
Delphi
by Sir Rufo,
3. Dez 2014
Nur so als Beispiel
TADODataModule = class( TDataModule )
public
procedure SetConnection( AConnection : TADOConnection );
end;
procedure TADODataModule.SetConnection( AConnection : TADOConnection );
var
LIdx : Integer;