瀏覽代碼

+ Fixed inherited create

michael 21 年之前
父節點
當前提交
ba793f2378
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;