Changeset 38 for trunk/Forms/UImportStructureForm.pas

Timestamp:

Mar 8, 2012, 3:40:45 PM (13 years ago)

Author:

chronos

Message:

• Fixed: SqlDatabase object initialized twice and freed once.

File:

• trunk/Forms/UImportStructureForm.pas (modified) (1 diff)

trunk/Forms/UImportStructureForm.pas

@@ -94 +94 @@
 procedure TImportStructureForm.FormShow(Sender: TObject);
 begin
-  EditHost.Text := Core.SqlDatabase1.HostName;
-  EditUser.Text := Core.SqlDatabase1.UserName;
-  EditSchema.Text := Core.SqlDatabase1.Database;
+  EditHost.Text := Core.System.Client.Host;
+  EditUser.Text := Core.System.Client.User;
+  EditSchema.Text := Core.System.Client.Schema;
 end;