Changeset 26 for trunk/DbEngines


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

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

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

  • trunk/DbEngines/UDbClientRegistry.pas

    r20 r26  
    11unit UDbClientRegistry;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    1816
    1917
    20 
    2118implementation
    2219

  • 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

  • trunk/DbEngines/UEngineSQLite.pas

    r20 r26  
    11unit UEngineSQLite;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/DbEngines/UEngineXML.pas

    r24 r26  
    11unit UEngineXML;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    75uses
    86  Classes, SysUtils, DOM, XMLRead, XMLWrite, UDatabase, UXMLUtils, FileUtil,
    9   UHtmlClasses, USqlDatabase, SpecializedDictionary;
     7  UHtmlClasses, USqlDatabase, UGenerics;
    108
    119type
Note: See TracChangeset for help on using the changeset viewer.