Changeset 8 for trunk/Forms/UFormRecord.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/UFormRecord.pas (modified) (2 diffs)

trunk/Forms/UFormRecord.pas

@@ -100 +100 @@
     NewLabel.Visible := True;
     Labels.Add(NewLabel);
-    case TField(Table.Fields[I]).FieldType of
+    case TField(Table.Fields[I]).DataType.FieldType of
       ftString: begin
         NewControl := TEdit.Create(Panel1);
@@ -160 +160 @@
 begin
   for I := 0 to Table.Fields.Count - 1 do begin
-    case TField(Table.Fields[I]).FieldType of
+    case TField(Table.Fields[I]).DataType.FieldType of
       ftString: TValueString(Row.Values[I]).Value := TEdit(Controls[I]).Text;
       ftInteger: TValueInteger(Row.Values[I]).Value := TSpinEdit(Controls[I]).Value;