Jump to content

Ian Branch

Members
  • Content Count

    1435
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    Formatter doesn't work in a Unit??

    😞 It works for me on all other units except for this one. 😞 OK. Thanks for your time. It is only a small one so no biggie to keep it formatted manually. Thansk to all for your input & support. Regards, Ian
  2. Ian Branch

    Formatter doesn't work in a Unit??

    Agreed, but it still has its quirks. 😉
  3. Ian Branch

    Formatter doesn't work in a Unit??

    Tks.
  4. Ian Branch

    Formatter doesn't work in a Unit??

    How would one identify a 'strabge character' out of the multitude?
  5. Ian Branch

    Formatter doesn't work in a Unit??

    I am using D11.3, GExperts 1.3.23.4026.
  6. Ian Branch

    Formatter doesn't work in a Unit??

    OK. I give up. What is it in the attached that the Formatter doesn't like?? GITLAKLib.pas
  7. Ian Branch

    Formatter doesn't work in a Unit??

    OK. My apologies. It does. Just not on my Function library unit. 😞 Investigating. Apologies again. Ian
  8. Ian Branch

    Formatter doesn't work in a Unit??

    I feel a Bug report coming on.... 😉
  9. Ian Branch

    Capture Ctrl-Click on a TButton?

    Hi Team, I have a TButton that does one thing, I want to capture a Ctrl-Click on that button so I can have it do some preprocessing before continuing. How can I do that please? Regards & TIA, Ian
  10. Ian Branch

    Capture Ctrl-Click on a TButton?

    Tks Thomas. Ian
  11. Ian Branch

    Thank You!!

    To all, Over the years I have used this Forum a lot. It has allways been a source of information. Some great, enilightening, educating, some not so much. ;-) What has never failed, is to get an answer/help/advice when needed. I am a strong believer in the saying.. "There are no stupid questions, only stupid answers." So, to all of you who have helped and responded to User's questions, issues, etc. And in particular to those that have responed to my inane, sometimes ignorant, questions/issues. A very large THANK YOU! THANK YOU! THANK YOU! All very much appreciated. Regards, Ian P.S. I'm sure I have many more questions/issues to come. :-)
  12. Hi Team, Win 11, D11.3.1. I experienced this a while ago, pretty sure I asked the question here, but I don't recall ifthere was a resolution. Twice in the past week two different Apps have had their DB components lose their connection to their datasource. As in the Datasource entry in the components is empty. All of them. I have had to reconnect all the components to their datasource. Oh the pain!! It isn't just one datasource either. There are a couple of datasources involved that get lost. Has anybody else experienced this? Does anybody have any suggestions as to what might be causing it? Regards & TIA, Ian
  13. Hi Team, I want to turn it off full time. I can't find any way/where to do that. Can I? Regards & TIA, Ian
  14. Ian Branch

    Version of Indy in D11.3??

    Hi Team, Do we know which version of Indy is supplied with D11.3? I need at least Indy 10.5.7 for an App. Regards & TIA, Ian
  15. Ian Branch

    Version of Indy in D11.3??

    Tks Remy.
  16. Ian Branch

    Delphi 11.3 is available now!

    I am almost eady to put it on a par with D2007. 🙂 IMHO the best ever. Not perfect, but still the best.
  17. Ian Branch

    Assigned(ErrorMessage) problem.

    Hi Team, I have a function definition of .. function ValidEmail(const EmailAddress: string; out ErrorMessage: string): Boolean; const EMAIL_REGEX = '^((?>[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+\x20*|"((?=[\x01-\x7f])' + '[^"\\]|\\[\x01-\x7f])*"\x20*)*(?<angle><))?((?!\.)' + '(?>\.?[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+)+|"((?=[\x01-\x7f])' + '[^"\\]|\\[\x01-\x7f])*")@(((?!-)[a-zA-Z\d\-]+(?<!-)\.)+[a-zA-Z]' + '{2,}|\[(((?(?<!\[)\.)(25[0-5]|2[0-4]\d|[01]?\d?\d))' + '{4}|[a-zA-Z\d\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|\\' + '[\x01-\x7f])+)\])(?(angle)>)$'; var .... .... The requirement is two fold. 1. ErrorMessage is optional in the calling program. i.e. it may be just - if validemail('myemail@somewhere.com') then .... 2. Assign an error message to ErrorMessage if the construction of the email address is incorrect. if (not Result) and Assigned(ErrorMessage) then ErrorMessage := 'The following email addresses are invalid: ' + String.Join('; ', InvalidEmails.ToArray); My problem is that I get an 'Incompatible types' error message for the 'then' in the above. I don't understand why. If I have read the help correctly, Assigned(Errormessage) should return a true or false, depending if Errormessage has been 'called'.?? Can somebody enlighten me please? What do I need to do to meet my needs? Regards & TIA, Ian
  18. Ian Branch

    Assigned(ErrorMessage) problem.

    Hi Remy, Great minds think alike. There is my mind.... I was laying in bed at 2am mulling the issue, as you do, when it occurred to me that that was what I needed to do. Regards & Tks, Ian
  19. Ian Branch

    Assigned(ErrorMessage) problem.

    Mmmm. Makes "If not ValidEmail('khggh.jghfjgh.vbn') then ..." more complicated and I would still have to revist every call. Thanks for your thoughts. I guess I will have to vistit every call. Regards & Tks again, Ian
  20. Ian Branch

    Assigned(ErrorMessage) problem.

    Nope.
  21. Ian Branch

    Assigned(ErrorMessage) problem.

    But it still requires the parameter in the calling function.
  22. Ian Branch

    Assigned(ErrorMessage) problem.

    How does one make a parameter such as this optional?
  23. Ian Branch

    Assigned(ErrorMessage) problem.

    Hi p2k, OK on the errormessage/object aspect. Quite so. I use the basic routine in multiple locations/projects and it doesn't have the error message functionality. I was looking to do a Global replace of old for new. Then update the many calling instances at my leisure.
  24. It can't hurt to ask... 🙂 https://quality.embarcadero.com/browse/RSP-41366?filter=-3
  25. It could at least warn you and ask you if it should remove the links....
×