Changeset 8 for trunk/Forms/UFormFields.pas

Timestamp:

Jan 23, 2015, 12:00:37 AM (10 years ago)

Author:

chronos

Message:

• Modified: All data types have own table which is used to specify supported data types by database engines.

File:

• trunk/Forms/UFormFields.pas (modified) (3 diffs)

trunk/Forms/UFormFields.pas

@@ -63 +63 @@
 procedure TFormFields.FormShow(Sender: TObject);
 begin
+  if not Assigned(Fields) then
+    raise Exception.Create('Fields not set');
   Caption := 'Table fields - ' + TableName;
   UpdateInterface;
@@ -73 +75 @@
 begin
   NewField := TField.Create;
+  NewField.Table := Fields.Table;
   NewField.Name := 'New field';
   FormField.Load(NewField);
@@ -117 +120 @@
   with TField(Fields[Item.Index]) do begin
     Item.Caption := Name;
-    Item.SubItems.Add(FieldTypeString[FieldType]);
+    Item.SubItems.Add(DataType.Name);
     Item.SubItems.Add(BoolToStr(Required));
     Item.SubItems.Add(TextBefore);