Jump to content

Jacek Laskowski

Members
  • Content Count

    138
  • Joined

  • Last visited

  • Days Won

    1

Jacek Laskowski last won the day on October 4 2019

Jacek Laskowski had the most liked content!

Community Reputation

29 Excellent

About Jacek Laskowski

  • Birthday 08/16/1973

Technical Information

  • Delphi-Version
    Delphi 10.2 Tokyo

Recent Profile Visitors

448 profile views
  1. Jacek Laskowski

    FireDAC and read table metadata

    Thanks @Dmitry Arefiev !
  2. Jacek Laskowski

    FireDAC and read table metadata

    I use Firebird and I use domains in databases. CREATE TABLE RESOURCE ( IDRESOURCE D_PRIMARY_KEY, IDCUSTOMER D_FOREIGN_KEY NOT NULL, LASTUSED D_DATETIME, RESOURCEIDENTIFIER D_VARCHAR120, FRIENDLYRESOURCENAME D_VARCHAR250); How to use Firedac to read the domain names used for the columns in the table? I try use TFDMetaInfoQuery but without success (ExtendedMetadata enabled). ps. How to use TFDMetaInfoQuery.MetaInfoKind with value set to mkTableTypeFields? There is no description in the documentation and TFDMetaInfoQuery does not return anything.
  3. Jacek Laskowski

    MMX for Delphi 10.3 Rio

    Yes, despite the exclusion of the pointed modules, I have the IDE suspension But it is worth adding that I have a suspension after I modify the interface method and then I try to edit (ctrl+E) the method in the class that corresponds to the modified interface method. This is probably the only (certainly the main >90%) case of suspension.
  4. Jacek Laskowski

    MMX for Delphi 10.3 Rio

    Yuuppii! 🙂 I will try this workaround and test behaviour, thanks for effort and for support MMX! From the more complicated code I use Spring4D, FireDAC and mORMot, did you check them?
  5. Jacek Laskowski

    MMX for Delphi 10.3 Rio

    @Uwe Raabe Some time ago I discovered that GExperts in "Uses Clause Manager" module has a parser that works in the background and creates files from the cache on the disk. Previously I suspected that MMX suspensions occur when accessing source files, so I thought GExperts might interfere with MMX somehow. I completely disabled "Uses Clause Manager" and since then the number of IDE suspensions when using MMX has dropped dramatically. It still happens, but this is maybe 10% of the previous state. I hope this helps a little bit.
  6. Jacek Laskowski

    [Spring4D] Factory and "Unsatisfied constructor"

    I think you mean this piece of code (from the SelectEligibleConstructor method): end).TakeWhile( function(const injection: IInjection): Boolean begin if maxCount = -1 then maxCount := injection.DependencyCount; if targetType = nil then targetType := injection.Target.Parent; Result := (injection.DependencyCount = maxCount) and (targetType = injection.Target.Parent); end).Where(... But how (at this point) to get to the list of arguments and their types to choose the right constructor?
  7. Jacek Laskowski

    [Spring4D] Factory and "Unsatisfied constructor"

    What is ConstructorSelector? I didn't find anything in Spring4D sources or google. Give me a simple example, please.
  8. Jacek Laskowski

    [Spring4D] Factory and "Unsatisfied constructor"

    @Stefan Glienke Your example works, my code doesn't. It's identical*. I spent a lot of hours and energy modifying the code from left to right... I finally found it! Please add a line in your example before registering classes in the container: globalContainer.AddExtension<TActivatorContainerExtension>; and then check it out... 🙂 I'm very tired of it... give me a tip how to fix it, please. * - almost
  9. Jacek Laskowski

    [Spring4D] Factory and "Unsatisfied constructor"

    When I comment on one of the constructors, then the factory was working properly. TSQLDataSuite = class(TInterfacedObject, ISQLDataSuite) [...] public // constructor Create(const aTableName: RawByteString; // const aSQLKind: TModifyingSQLKind; // const aProcessSQL : Boolean = True; // const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil; // const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil); overload; constructor Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean); overload; end; There is a problem with factory when a class has two active constructors. But I can't understand it.
  10. Jacek Laskowski

    [Spring4D] Factory and "Unsatisfied constructor"

    I add new constructor to TSQLDataSuite: constructor Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean); overload; And new factory: ISQLDataSuiteFactory = interface(IInvokable) ['{A101FA06-ED33-478A-9066-821BC8C5E2AE}'] function Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean ): ISQLDataSuite; overload; function Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean; const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod; const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod): ISQLDataSuite; overload; end; but after call: var fSQLDataSuiteFactory : ISQLDataSuiteFactory; [...] lData := fSQLDataSuiteFactory.Create('TableName', TModifyingSQLKind.SQLInsert, True); I stiil get exception: Unsatisfied constructor on type: TSQLDataSuite How to do it right?
  11. I have problem with one factory. definition TSQLDataSuiteWorkerMethod = procedure(const aDataSuite : ISQLDataSuite) of object; TSQLDataSuite = class(TInterfacedObject, ISQLDataSuite) [...] public constructor Create(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean = True; const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil; const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil); reintroduce; end; {$M+} TSQLDataSuiteFactory = reference to function(const aTableName: RawByteString; const aSQLKind: TModifyingSQLKind; const aProcessSQL : Boolean = True; const aBeforeWorkerMethod: TSQLDataSuiteWorkerMethod = nil; const aAfterWorkerMethod: TSQLDataSuiteWorkerMethod = nil): ISQLDataSuite; {$M-} container registration aContainer.RegisterType<TSQLDataSuite>.Implements<ISQLDataSuite>; aContainer.RegisterFactory<TSQLDataSuiteFactory>; resolve in code: fSQLDataSuiteFactory : TSQLDataSuiteFactory; var Data: ISQLDataSuite; begin Data := fSQLDataSuiteFactory('TableName', TModifyingSQLKind.SQLInsert, True, nil, nil); And after last l get exception from Spring4D: Unsatisfied constructor on TSQLDataSuite What have I forgotten? I use in the program dozens of factories, classes and interfaces, all based on the spring container, everything works correctly, only this case I cannot understand. ps. maybe it's worth opening a subforum for Spring4D?
  12. I have a spring collection, like a IList<T>. I need to remove all items from it that meet the condition: type TFoo = interface function Value : Integer; end; var List : IList<TFoo>; begin i := 0; while i < List.Count do begin if List[i].Value < 100 then List.Delete(i) else Inc(i); end; end; Can it be done faster, better? And how can I do that for IDictionary<K, V>?
  13. Jacek Laskowski

    Removal of startup Plug-In in Delphi Rio

    I use this option for years, without problems.
  14. Jacek Laskowski

    Removal of startup Plug-In in Delphi Rio

    @Vandrovnik Please add: " Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\BDS\19.0\Editor] "DefaultFileFilter"="Borland.FileFilter.UTF8ToUTF8" After setting this value Delphi will encode new units in UTF-8 with BOM."
  15. Jacek Laskowski

    Debugger in 10.3.3 is useless :'(

    Maybe you're using automatic inline? {$INLINE AUTO} from docs: "Behaves like {$INLINE ON}, with the addition that routines not marked with inline will be inlined if their code size is less than or equal to 32 bytes."
×