Ignore:
Timestamp:
Sep 10, 2022, 8:03:08 PM (2 years 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/DbEngines/UEngineMySQL.pas

    r23 r26  
    11unit UEngineMySQL;
    2 
    3 {$mode delphi}
    42
    53interface
    64
    75uses
    8   Classes, Dialogs, SysUtils, UDatabase, USqlDatabase, UHtmlClasses, SpecializedDictionary;
     6  Classes, Dialogs, SysUtils, UDatabase, USqlDatabase, UHtmlClasses,
     7  UGenerics;
    98
    109type
    … …  
    8079      NewField := TField.Create;
    8180      NewField.Table := Table;
    82       NewField.Name := TDictionaryStringString(DbRows[I]).Values['Name'];
    83       NewField.TextBefore := TDictionaryStringString(DbRows[I]).Values['Title'];
    84       DataType := StrToInt(TDictionaryStringString(DbRows[I]).Values['Type']);
     81      NewField.Name := TDictionaryStringString(DbRows[I]).Items['Name'];
     82      NewField.TextBefore := TDictionaryStringString(DbRows[I]).Items['Title'];
     83      DataType := StrToInt(TDictionaryStringString(DbRows[I]).Items['Type']);
    8584      SqlDatabase.Query(DbRows2, 'SELECT * FROM `DataType` WHERE `Id` = ' + IntToStr(DataType) + '');
    8685      if DbRows2.Count > 0 then begin
    87         TypeName := TDictionaryStringString(DbRows2[0]).Values['Name'];
     86        TypeName := TDictionaryStringString(DbRows2[0]).Items['Name'];
    8887        NewField.DataType := Table.DbClient.ClientType.DataTypes.SearchByName(TypeName);
    8988        if not Assigned(NewField.DataType) then
Note: See TracChangeset for help on using the changeset viewer.