Ignore:
Timestamp:
Sep 10, 2022, 8:03:08 PM (20 months ago)
Author:
chronos
Message:
  • Removed: TemplateGenerics as required package. Used Generics.Collections instead.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        77heaptrclog.trc
        88MyData.exe
         9MyData.dbg
         10

  • trunk/Forms/UFormFields.pas

    r24 r26  
    11unit UFormFields;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    4038    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
    4139      Selected: Boolean);
    42   private
    43     { private declarations }
    4440  public
    4541    Fields: TFields;
    … …  
    166162  Fields.Table.DbClient.Query('SELECT * FROM ModelField WHERE Model = ' + Fields.Table.Name, DbRows);
    167163  for I := 0 to DbRows.Count - 1 do begin
    168     NewField := Fields.AddNew(DbRows[I].Values['Name'], Fields.Table.DbClient.DbManager.DataTypes.SearchByName(DbRows[I].Values['DataType']));
    169     NewField.TextBefore := DbRows[I].Values['Caption'];
     164    NewField := Fields.AddNew(DbRows[I].Items['Name'],
     165      Fields.Table.DbClient.DbManager.DataTypes.SearchByName(DbRows[I].Items['DataType']));
     166    NewField.TextBefore := DbRows[I].Items['Caption'];
    170167  end;
    171168  DbRows.Free;
Note: See TracChangeset for help on using the changeset viewer.