Jump to content

Lajos Juhász

Members
 View Profile  See their activity

  • Content Count

    838

  • Joined

  • Last visited

  • Days Won

    11

Posts posted by Lajos Juhász

  4. Posted

    Check out the source and you can easily write your own version (a quick example code):

      

    uses 
  System.RTLConsts;

type
  TMyStringList = class(TStringList)
  public
    function AddObject(const S: string; AObject: TObject): Integer; override;
  end;

function TMyStringList.AddObject(const S: string; AObject: TObject): Integer;
begin
  if sorted then
    result:=inherited AddObject(S, AObject)
  else
  begin
    result:=IndexOf(s);
    if (result=-1) then
    begin
      result:=count;
      InsertObject(result, S, AObject)
    end
    else
    begin
      case Duplicates of
        dupIgnore: Exit;
        dupError: Error(@SDuplicateString, 0);
        dupAccept: begin
                     result:=count;
                     InsertObject(result, S, AObject);
                   end;
      end;
    end;
  end;
end;

     

    • Thanks 1

  5. Posted

    5 minutes ago, Mike Torrettinni said:

    Is there a way to use TStringList for this without me writing custom duplicate checking code?

     

    No, there is no way and it's documented that Duplicates works only for sorted lists:

     

    Set Duplicates to specify what should happen when an attempt is made to add a duplicate string to a sorted list. The CaseSensitive property controls whether two strings are considered duplicates if they are identical except for differences in case. 

    The value of Duplicates should be one of the following. 

    • Thanks 1

  7. Posted

    52 minutes ago, KodeZwerg said:

    Good day everone!

     

    I did opened this https://quality.embarcadero.com/browse/RSP-33937 to have Segoe UI (Windows Vista+) as Default Font instead of Tahoma (Windows XP)

     

    Stay healthy!

    Did you filled a bug report also with Microsoft? Delphi uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes\MS Shell Dlg 2 on my Windows 10 that's still Tahoma.

    • Confused 1

  8. Posted

    1 hour ago, Dalija Prasnikar said:

    For anyone interested in try...finally patch... it is still broken. 

     

    I guess those "3 minutes" tests strike again...

     

    If I remember correctly try ... finally was not effecting windows. I am using VCL for Windows so I could be still fine of course since I am enjoying my 2020 vacation I will test it in more details when I return to work.

  10. Posted

    I have no experience with Interbase but a general sql could be:

    select itemno,  
           sum(case when tname='Buy' then qty*uprice else 0 end) as totalbuy,
           sum(case when tname='Sell' then qty*uprice else 0 end) as totalsell,
           sum(case when tname='Return' then qty*uprice else 0 end) as totalreturn
    from <Your table>
    group by 1 

  13. Posted

    51 minutes ago, mvanrijnen said:

    EMB and the  MVP's denying the problems,  and we the "people" (eg normal users/customers) are stuck with the ..... 🙂 

    Still wondering why no communication from EMB at all, they are on this Forum, better they refer to this forum, would be nice if the where some bit more active and/or responsive.

    They're not I posted a link to a webinar 3 weeks ago where @Marco Cantu admitted that he is in charge to resolve this problem and to release the hotfix. I guess the cold weather in Europe made slowed the release a bit down.

    • Haha 1

  14. Posted

    9 minutes ago, Davide Angeli said:

    But is there anyone using 10.4.2 without problems? Has anyone switched to this shameful bug-ridden version to work seriously? Am I the only fool?

    You can work with project that doesn't use packages. This is top priority that's the reason they will release a hotfix as soon as it will be ready.  Meanwhile do try to test the application without debugging as much as you can.

  19. Posted

    4 hours ago, Iña said:

    seconds:=t div 1000;

    minutes:=t div 60000;

    You're here calculating the total seconds and minutes. Try:

    seconds:=t div 1000;

    minutes:=seconds div 60;

    seconds:=seconds-(minutes*60);

    • Thanks 1

  23. Posted

    1 minute ago, mvanrijnen said:

    We do that, en then we hear nothing. 

    How many individual issues about the LSP etc you want to see? 

    I posted a link yesterday to the Webinar where Marco Cantu answered to my question about the Internal Errors in Delphi 10.4.2 most probably it's a bug in the compiler/LSP whatever that causes multiple problems with the IDE. He said that some customers received the hotfix and the feedback is positive. He didn't said anything about when the fix will be available for the public.


    How much individual issues would I like to see? For every issue that could cause Internal Error, Access Violation or that the IDE dies.  I can live with bugs that doesn't crash the IDE. Once again we cannot know what fix is being tested as Idera/Embarcadero will not give information about that to the public (in my opinion it's the wrong choice).

  24. Posted

    1 minute ago, mvanrijnen said:

    the info is given by all the other RSP's about LSP etc, i see this as the only way to communicate with EMB. 

    A wonder what company would react in a positive way for a quality ticket that nothing is working and the product is falling apart. An individual issue can be investigated and most probably be fixed, but a general statement that the *thing doesn't work* will not help in anyway.

     

    We have to wait for the hotfix that should fix the error that slipped into 10.4.2 and then report the new issues. 

  25. Posted

    27 minutes ago, mvanrijnen said:

    There are still issues with the LSP, ErrorInsight, CodeCompletion etc.

     

    See the list at: Issue Navigator - Embarcadero Technologies

     

    Please vote, a scream to EMB 🙂 

    [RSP-33648] When are LSP, ErrorInsigh, CodeCompletion issues serious addressed ?? - Embarcadero Technologies

     

    Unfortunately this RSP not even worth to read it there is no information in it it should be rejected.

    • Like 1
×