delphi-10-seattle

Stop the IDE from adding uses units automatically

一曲冷凌霜 提交于 2020-01-13 14:40:17
问题 I am moving a Lazarus project to Delphi Seattle. The Lazarus project depends on 40+ units (including controls) and has several applications. In the uses clause of all the projects they used the following: uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DBCtrls, {$I OurLibrary.inc}; where they included those 40+ units with $I OurLibrary.inc . As some of those units are controls i registered them in Delphi. However if i save the project or build / compile it, Delphi adds the units

Firemonkey Hints don't work in Delphi Seattle, for a project converted from XE7

南楼画角 提交于 2020-01-07 09:07:29
问题 I opened this demo in Delphi Seattle and it works like it should. When I open my program, and include the demo form it doesnt work. I cannot add hints to my controls. procedure TMainForm.FormCreate(Sender: TObject); application.ShowHint:=true; application.OnHint :=OnApplicationHint; end; procedure TMainForm.OnApplicationHint(Sender: TObject); begin caption := (Application.Hint); end; My program is converted from XE7 to Seattle. So what could be the difference? Where can i find the code that

How to handle TRegEx named capture groups that might be empty?

假装没事ソ 提交于 2020-01-07 08:55:09
问题 I have a regular expression with named capture groups, where the last group is optional. I can't figure out how to iterate the groups and properly deal with the optional group when it's empty; I get an EListOutOfBounds exception. The regular expression is parsing a file generated by an external system that we receive by email which contains information about checks that have been issued to vendors. The file is pipe-delimited; a sample is in the code below. program Project1; {$APPTYPE CONSOLE}