Leaderboard

Thank you guys - I deleted the .xml files from the project and all is now working as expected. Cheers, Adam

If you are using ICS within a worker thread, you have to create a message pump. See the sample applications delivered with ICS there are several showing how to use a message pump which is not Application.ProcessMessages.

Hm, I see that he did not find LN. Not FN.

You never stated whether there are always three digits in the list. What if you look to delete '100' from a list of (100, 110, 1001, 1009, 1100) ? Context can be important! You just gave a few samples without telling the whole story about everything that can possibly be in the list.

try this sample: function MyFindAndReplace2(const AStr: string; const ASubStr: string; const ADelimiter: Char): string; var LArr : TArray<string>; LNewArr: TArray<string>; begin result := AStr.Replace(' ', '', [rfReplaceAll]); // removing blank-spaces... // if (result.Trim = '') or (ASubStr.Trim = '') or (ADelimiter = #32) then exit(''); // LArr := result.Split([ADelimiter], TStringSplitOptions.ExcludeEmpty); // for var i: integer := 0 to high(LArr) do // only if not found! if (LArr[i] <> ASubStr) then LNewArr := LNewArr + [LArr[i]]; // result := ''.join(ADelimiter, LNewArr); end; procedure TForm1.Button3Click(Sender: TObject); var LText : string; LSubText: string; begin LText := ' 100,1000, 10, 1001, 101,102,100,,,,103,104, 100,100'; // ' '; // ' ,,'; // ' 1, ,'; LSubText := '100'; // Memo1.Text := LText; // Memo1.Lines.Add('Result=[' + MyFindAndReplace2(LText, LSubText, ',') + ']'); end;

you try this: '100,' or ',100' or ',100,' --> comma as determinant on expression if "comma" dont exists, dont worry! nothing will be changed! [rfReplaceAll] or [ ] for just 1 LText will have always a valid value, same that empty!

If you are sure they are always separated by commas, you can do Function GetRidOf(Const inString, inDeleteThis: String): String; Var mystr, s: String; Begin Result := ''; For s In inString.Split([',']) Do If s <> inDeleteThis Then Result := Result + s + ','; If Not Result.IsEmpty Then Result := Result.Substring(0, Result.Length - 1); End; This should properly keep '100' in '1100' for example.

By manually pumping messages, getting only those which were sent to socket control handle.

I'd better create a vpn server on the cloud to create a virtual LAN between 3 of your environments.

I'd live to see it answer some of the questions that have been answered on SO, but without being able to refer to SO. In short, no, AI is still a long way from making human though obsolete. It can be a really power tool to use alongside it.

I can see using it to get started in a direction, I guess, but my initial tests with it soured me on trusting it. I asked it to describe various things that are non-trivial but I know a lot about, and every single time, it included false information on those topics. For example, I asked it about my own software, and it listed compatibility with operating systems that are expressly not supported. I asked it to summarize the events of a Star Trek episodes and it got lots of details breathtakingly wrong. If I can ask it questions I already know the answer to, and it gives me wrong results, how am I going to trust it to help me on things I don't know?

Fellow Delphi developers, This is with great pleasure that we announce the immediate availability of HelpNDoc 8.4, an easy to use yet powerful help authoring tool producing CHM help files, responsive HTML 5 and mobile Websites, DocX and PDF manuals, Markdown documents, ePub and Kindle eBooks as well as Qt Help files from a single source. HelpNDoc is Free for personal use and evaluation purposes and is available at: https://www.helpndoc.com HelpNDoc 8.4 provides many new features and enhancements such as the ability to make HTTP requests during the documentation generation process, merge keywords and much more... You can learn more about this update at: https://www.helpndoc.com/news-and-articles/2023-01-17-streamline-your-documentation-generation-workflow-with-the-new-http-request-build-action-in-helpndoc-8.4/ Video of some of the new features in HelpNDoc 8.4: Download HelpNDoc now and use it for free for personal and evaluation purposes: https://www.helpndoc.com/download Follow our step-by-step video guides to learn how to use HelpNDoc: Best regards, John, HelpNDoc team. https://www.helpndoc.com