Jump to content

Lajos Juhász

Members
 View Profile  See their activity

  • Content Count

    817

  • Joined

  • Last visited

  • Days Won

    11

Posts posted by Lajos Juhász

  1. Posted

    5 hours ago, robertjohns said:

    How to Solve if any of the ListBox Items does not contain even first char of EditBox , ListBox items should not get clear , ListBox items must remain as it is because search criteria does not match any of the ListBox item. 

    procedure TForm1.Edit1Change(Sender: TObject);
Var
  i: Integer;
  lFilteredList: TStringList;
Begin
  lFilteredList:=TStringList.create;
  try  
    if trim(Edit1.text)<>'' then
    begin
      for i := 0 to list_global.Count - 1 do
        if pos(Edit1.text, list_global[i]) > 0 then 
          lFilteredList.Add(list_global[i]);
    end;
    if lFilteredList.count=0 then
      listbox1.items.assign(list_global)
    else
      listbox1.items.Assign(lFilteredList);     
  finally
    lFilteredList.Free;
  end;
End;

  2. Posted 

    procedure TForm1.Edit1Change(Sender: TObject);
Var
  i: Integer;
Begin
  listBox1.Clear;

  if trim(Edit1.text)='' then
    listbox1.items.Assign(list_global)
  else
  begin
    for i := 0 to list_global.Count - 1 do 
      if pos(Edit1.text, list_global[i]) > 0 then 
        listBox1.Items.Add(list_global[i]);
  end; 
End;

  8. Posted · Edited by Lajos Juhász
    c: was converted to smiley.....

    22 minutes ago, JohnLM said:

    Thus, the TButton, btn's event will activate, beep and show a larger image for the main image.

     

    Again, I know nothing about events and how to create or modify them--unless someone shows me how.  Otherwise, this project will be on hold for a very long time since I have to figure this all out. But if/when I do, I will update this topic. 

     

    Delphi is strongly typed language you cannot modify the signature of an event. In order to find out which button was clicked you should the sender parameter of onClick:

     

    procedure TForm1.btnClick(Sender: TObject);

    var

      c : TComponent;
    begin

      if Sender is TButton then // <--- the name of the class of the button
      begin

         c:=Self.FindComponent('IM_'+TButton(Sender).Tag.ToString) ;

    ........

    You should never use Form1 inside a method of the TForm1 that's a bad design you're locking the implementation to that one reference instead you can write Self.FindCompoent or leave out self and write FindComponent.

    Please try not to use With it's an evil language contruct that has no place in modern code.

     

    • Thanks 1

  10. Posted

    7 hours ago, Yaron said:

    My app is very simple, so I was thinking I may find a "compilation" partner that would just compile the source code for me on the latest version of Delphi.

     

    An issue could be also that a newer version of Delphi could require source code changes to be able to work with newer version of Android. Please do remember that nor platform support (due to changes at platform level) and fmx are not solid. From version to version there are required changes in order to get a correct output.

  12. Posted

    In Delphi components are not binary compatible between major releases. You will have to modify your existing components or obtain the version for Delphi 11. After that you have to compile and install runtime packages. That's the main reason why there is no automatic option to obtain installed components from a previous versions.

     

    PS. Usually it requires a minimal change in the source to move a component to the next version of the Delphi.

     

    In case of the same version of the Delphi in 2 separate computers there is a migration tool, I've never used it.

  16. Posted

    The Quality Portal is back online. Docwiki is still have issues, it starts loading (blue background) then:

      

    #0 /var/www/html/shared/BaseWiki31/includes/libs/rdbms/loadbalancer/LoadBalancer.php(1134): Wikimedia\Rdbms\Database->reportConnectionError('No route to hos...')
#1 /var/www/html/shared/BaseWiki31/includes/libs/rdbms/loadbalancer/LoadBalancer.php(749): Wikimedia\Rdbms\LoadBalancer->reportConnectionError()
#2 /var/www/html/shared/BaseWiki31/includes/GlobalFunctions.php(2801): Wikimedia\Rdbms\LoadBalancer->getConnection(0, Array, false)
#3 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LCStoreDB.php(45): wfGetDB(-1)

  17. Posted

    1 hour ago, DelphiUdIT said:

    I use some $DEFINE and I never notice malfunctions.

     

    I don't use it often. In this case I have decided that instead of commenting out the code for debugging the COM communication I am will place it inside a conditional block. The IDE went completely mad when I closed the IDE it was an Access Violation.

  18. Posted

    You wrote that you want to install a runtime package in that case you cannot add a 64 bit bpl to required, runtime package must be 32. The Delphi IDE is 32 bit it requires a 32 bit bpl cannot load a 64 bit version (from the name w64 I guess it's a 64 bit package).

     

    Anyway the 32 bit version of the QuickReport package must be on a Windows path. You can add it for the Delphi IDE (Tools - Options - Environment Variables) and select path at the User System Overrides.

  19. Posted

    It's the Windows path that you have to update. Since BPL is a special type of a DLL the OS involved in loading the required packages. When a designtime package (that you want to install) is referencing the runtime package (it can also be a single package runtime + designtime) the OS (Windows) must locate it. Setting the search path will not resolve the bug. 

  20. Posted

    Recently (maybe D11) they've changed if a part of code is inactive the conditional symbol is not active the conditional code sections are greyed out. I'm not sure if that introduced this bug or something else. Of course after I have restarted the IDE it's working ok.

     

  21. Posted

    I believe that the implementation of the shiny feature to show which part of the code is active broke the IDE (Delphi 12).  

     

    I've tried to enter:

    {$Define DebugCOM} 

     

    Nothing special, unfortunately after this the editor stopped receiving keyboard imput, I was still able to navigate using the mouse but when I tried to close the project the error message was:

     

    Instance of Class TEditSource has dangling reference count of 1.
     

    Did anyone noticed something similair? I would like to create a test case to report it to the QP.

  23. Posted

    35 minutes ago, PeterPanettone said:

    Today is Tuesday. What kind of problems are there?

     

    It's top secret. In case of docwiki we can get a backtrace:

      

    #0 /var/www/html/shared/BaseWiki31/includes/libs/rdbms/loadbalancer/LoadBalancer.php(1134): Wikimedia\Rdbms\Database->reportConnectionError('Connection time...')
#1 /var/www/html/shared/BaseWiki31/includes/libs/rdbms/loadbalancer/LoadBalancer.php(749): Wikimedia\Rdbms\LoadBalancer->reportConnectionError()
#2 /var/www/html/shared/BaseWiki31/includes/GlobalFunctions.php(2801): Wikimedia\Rdbms\LoadBalancer->getConnection(0, Array, false)
#3 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LCStoreDB.php(45): wfGetDB(-1)
#4 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LocalisationCache.php(412): LCStoreDB->get('en', 'deps')
#5 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LocalisationCache.php(458): LocalisationCache->isExpired('en')
#6 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LocalisationCache.php(334): LocalisationCache->initLanguage('en')
#7 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LocalisationCache.php(371): LocalisationCache->loadItem('en', 'magicWords')
#8 /var/www/html/shared/BaseWiki31/includes/cache/localisation/LocalisationCache.php(292): LocalisationCache->loadSubitem('en', 'magicWords', 'tree')
#9 /var/www/html/shared/BaseWiki31/languages/Language.php(3177): LocalisationCache->getSubitem('en', 'magicWords', 'tree')
#10 /var/www/html/shared/BaseWiki31/includes/MagicWord.php(352): Language->getMagic(Object(MagicWord))
#11 /var/www/html/shared/BaseWiki31/includes/MagicWord.php(280): MagicWord->load('tree')
#12 /var/www/html/shared/BaseWiki31/includes/parser/Parser.php(4848): MagicWord::get('tree')
#13 /var/www/html/shared/BaseWiki31/extensions/TreeAndMenu/TreeAndMenu_body.php(24): Parser->setFunctionHook('tree', Array)
#14 /var/www/html/shared/BaseWiki31/includes/Setup.php(948): TreeAndMenu->setup()
#15 /var/www/html/shared/BaseWiki31/includes/WebStart.php(88): require_once('/var/www/html/s...')
#16 /var/www/html/shared/BaseWiki31/index.php(39): require('/var/www/html/s...')
#17 {main}

     

    The quality portal have only a generic error message: Sorry, an error occurred trying to log you in - please try again.

     

    For getit also only generic error message that it failed to load data.

     

     

    • Thanks 1
×