Changeset 7 for trunk/Forms/UItemAdd.pas

Timestamp:

Dec 25, 2010, 9:53:55 PM (14 years ago)

Author:

george

Message:

• Updated: USqlDatabase library.
• Added: Dependency to TemplateGenerics package.
• Modified: Rest of czech strings translated to english.

File:

• trunk/Forms/UItemAdd.pas (modified) (2 diffs)

trunk/Forms/UItemAdd.pas

@@ -77 +77 @@
   LastTop := 8;
   Column := 0;
-  ObjectInfo := MainForm.Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(MainForm.SelectedObject));
+  try
+  ObjectInfo := TDbRows.Create;
+  MainForm.Database.Query(ObjectInfo, 'SELECT * FROM `Object` WHERE `Id`=' + IntToStr(MainForm.SelectedObject));
   if ObjectInfo.Count = 1 then begin
 
     for I := Panel1.ControlCount - 1 downto 0 do
-      Panel1.Controls[I].Destroy;
+      Panel1.Controls[I].Free;
 
     // Load column names
-    Properties := MainForm.Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
+    try
+    Properties := TDbRows.Create;
+    MainForm.Database.Query(Properties, 'SELECT * FROM `Property` WHERE `Object`=' +
       IntToStr(MainForm.SelectedObject));
     for I := 0 to Properties.Count - 1 do begin
@@ -145 +149 @@
       if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
     end;
-    Properties.Destroy;
-  end else ShowMessage('Objekt nenalezen');
-  ObjectInfo.Destroy;
+
+    finally
+      Properties.Free;
+    end;
+  end else ShowMessage(SObjectNotFound);
+  finally
+    ObjectInfo.Free;
+  end;
 end;