Procházet zdrojové kódy

+ Fixed inherited create

michael před 21 roky
rodič
revize
ba793f2378
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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);
 begin
-inherited create(owner);
+inherited create(Aowner);
 fLstName := TStringList.Create;
 fLstVal := TStringList.Create;
 fDoSql:=false;