Quellcode durchsuchen

+ Fixed inherited create

michael vor 21 Jahren
Ursprung
Commit
ba793f2378
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      fcl/db/sqlite/sqlitedataset.pas

+ 1 - 1
fcl/db/sqlite/sqlitedataset.pas

@@ -715,7 +715,7 @@ end;
 
 
 constructor TSQLite.Create(Aowner: tComponent);
 constructor TSQLite.Create(Aowner: tComponent);
 begin
 begin
-inherited create(owner);
+inherited create(Aowner);
 fLstName := TStringList.Create;
 fLstName := TStringList.Create;
 fLstVal := TStringList.Create;
 fLstVal := TStringList.Create;
 fDoSql:=false;
 fDoSql:=false;