Ian Branch

Hi Team, What is the cleanest/safest way to close an Application during Main Form Creation? I tried just Close; but it keeps going. 😞 Regards & TIA, Ian

Hi Team, I need to be able to create and add to a list in a database table. ATT I am using a Memo field and simply adding lines, all text, to it. Is this the best/most efficient way to do it? Regards & TIA, Ian

Hi Guys, Perhaps my describing the information as a list is missleading.. Basically it is a log of events, each entry looking roughly like.. "This has been done with that at this datetime" Each time the event happens a new entry is added, notionally the same with the datetime being updated. Ian

Hi Team, I have a Timer routine that runs every minute. The routine detects if there is an AlertMessage.txt file present and if there is, opens it, populates then executes the modal dialog. It does this every minute. If the User doesn't acknowledge the first dialog another will be popped up on top. And so on.. Is there some way to detect if the original dialog is still open so subsequent executions don't occur? Regards & TIA, Ian

Thanks Guys for your suggestions. Doh!! So simple! Just disable/enable the timer... I'm embarrassed. 🙂 Regards & Tks Again, Ian

Hi Team, Does anybody know of an English version of GLibWMI? I'm afraid my French, or whatever language it is, is not all that good. i.e. non existant. Also, I don't think English Users would appreciate non-english prompts. 😉 Alternatively, is there another Library that provides similar functionality? I'm really only after the ability to stop/start windows services. Regards & TIA, Ian

Hi Team, You might want to upvote this RSP submission if you experience the same issue I do.. https://quality.embarcadero.com/browse/RSP-40401?filter=-3 Regards, Ian

The monitors are scaled to the recommended 150%. This works fine for all Apps in the main.

Hi programmer2k, Yes it does, but you expect it there because you have set it as such. Yes, the IDE does the same thing but should it? I don't set the font in the IDE to 14 so I can print at 14, I set it so I can read it. Trying to work with a font size of 10 in the IDE on a 4k screen is just impossible for my tired olds eyes. 😉 Yet font size 10 on print is perfectly readable. When I print, I need to be able to reduce the font to a manageable size for reading on the paper. Hence the request. Ian

Seems to have a redundant ')' after the =0..

Thank you all for your inputs. Appreciated. In the short term I have gone with Angus' Magenta component. Having said that I am interested in learning how to call/use the winapi stuff. Is there a guide somewhere? I have looked at the MS information and it is like reading a different language. Regards & TIA, Ian

Angus - Tks, d/load requested. Stephane - French, Spanish, same difference to me. I don't understand it. 🙂 Ian

No pressure, just asking.. When might Indy 11 surface?? Regards & TIA, Ian

Tks Remy, As I said, just curious. Regards, Ian

D11.2 - I don't get the error message but Delphi falls over.. 😞

Tks Mark-

Attempting to build rev 3943 under D11.2. Get the following.. Regards, Ian

Tks, all good now.

Hi team, Given a database table field statement.. MyTable.Fieldbyname('MyField').AsString What is the best/most efficient way to test if it is empty or NULL?? IsNullOrEmpty(MyTable.Fieldbyname('MyField').AsString) But Delphi didn't like it. Regards & TIA, Ian

Hi Stano, Doesn't that assume that the field is Null if empty? Ian

Didn't even realize there was such a thing as a 'Premium Update Subscription'. 😞

Hi Team, Regex is one of those mysteries I have never fathomed. :-( I have the following code.. function ValidEmail(const EmailAddress: 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)>)$'; begin Result := IsMatch(EmailAddress, EMAIL_REGEX); end; I don't recall exactly where I found it, apologies to the author, and it has served me well. It works well for single email address entries. How can it be modified so that it will parse multiple email addresses separated by a ';'? e.g. myemail@here.com;youremail@there.com.au With possible expansion to three or more email addresses in the future. I will be most grateful for any solution. Regards & TIA, Ian

I suspect it does, it has a later version #. Maybe I will look at it once I get this little exercise over.

Hi Team, I have only ever used a Getter/Setter construct once and that was just copying some code. It worked, but I didn't really understand what was going on and at the time urgency was priority. I now believe I have a use for Getters & Setters but don't understand what they are actually doing. Can some one point me to a plain English explanation of what Getters & Setters do and how they do it. Do I need both a Getter & a Setter for the functionality to work? Be gentle.. 😉 Regards & TIA, Ian

OK. I downloaded and had a look at the Lazarus implementation. I also had a look at various Lazarus/Delphi conversion guides. As I have the original almost working now I don't think I want to tackle the Lazarus/Delphi conversion.