cnpack / cnwizards Goto Github PK
View Code? Open in Web Editor NEWCnPack IDE Wizards
Home Page: http://www.cnpack.org
CnPack IDE Wizards
Home Page: http://www.cnpack.org
there is something weird with symbol definitions when you have two projects in project group and you will build/compile first one then open some unit from second project and you hit format code it will use symbol definitions from first project or something like that.
The smart paste feature does not work as expected anymore.
I expect the replacement of the text under the cursor by pressing [STRG]+[V]. As of nightly built 1.1.3.903.
In the newer Version, the text under the cursor is not replaced but inserted at cursor position ;-(.
plugin version 1.0.8.788_Unstable
TFoo = class()
published
property OnDragOver;
property OnDragDrop;
// property OnDrawHint;
// property OnDrawNode;
property OnEdited;
property OnEditing;
end;
after first format
TFoo = class()
published
property OnDragOver;
property OnDragDrop;
// property OnDrawHint;
// property OnDrawNode;
property OnEdited;
property OnEditing;
end;
after second format
type
Tfoo = class()
published
property OnDragOver;
property OnDragDrop;
// property OnDrawHint;
// property OnDrawNode;
property OnEdited;
property OnEditing;
end;
somehow not all properties are affected
whey you try to format
TFoo = class()
published
property OnDragOver;
// property OnDragDrop;
property OnDrawHint;
// property OnDrawNode;
property OnEdited;
property OnEditing;
end;
you will end up with
TFoo = class()
published
property OnDragOver;
// property OnDragDrop;
property OnDrawHint;
// property OnDrawNode;
property OnEdited;
property OnEditing;
end;
Hi:
I have installed CnWizrads V1.1.0.820 but it is not showing on Delphi 2007 on Windows 10 machine.
Registry Settting EXISTS for: '....Software/Borland/Experts/CnWizards_D2007 string: C:\Program Files (x86)\CnPack\CnWizards\CnWizards_D2007.DLL
However, no CnWizards.
Please help. Thank you.
if you try to format something like this
procedure foo()
begin
Form.OnAfterShow := Notify(
procedure(Sender: TObject)
begin
if Assigned(ShowEvent) then
ShowEvent(Sender);
try
// FDataModule.DisableControls;
Faa();
finally
end;
end);
end;
you will end up with
procedure foo()
begin
Form.OnAfterShow := Notify(
procedure(Sender: TObject)
begin
if Assigned(ShowEvent) then
ShowEvent(Sender);
try
// FDataModule.DisableControls;
Faa();
finally
end;
end);
end;
try keyword
will change indent
After v1.1.1.849 the SourceHighlighting in Delphi 2007 is misplaced. After 50 characters or so, if you set the cursor on a expression (example: TControl) it highlights all occurences, but the first highlight gets displayed 9 characters to the right, overlapping other code.
It's possible create this feature on the code formatting tool?
for I := Low(Arr) to High(Arr) do
Arr[I] := 0; //
Func();
after format
for I := Low(Arr) to High(Arr) do
Arr[I] := 0; //
Func();
Delphi 10
cnPack Ver: 1.1.2.885 Build 2017.03.08
Will not format comments to the right tabulation.
example:
procedure Test;
var
nT:Integer;
begin
// comment1
// comment2
nT := 7;
if nT > 5 then
nT := 10;
end;
Code Formatter will not align first nor second line to the right tabulation
Regards
Some New Features now need UI Translation for Russian, Could anyone helps?
Below is the English items(\n means CRLF):
CnUsesCleaner=Welcome to Uses Units Cleaner!\n\nThis wizard can remove the unused reference units in 'uses' part.
CnIdeBRWizard=Welcome to IDE Config Backup Restore Tool!\n\nThis wizard, which can also run in stand-alone mode, can be used to backup/restore IDE Configurations of Delphi/C++Builder/BDS.
CnScriptWizard=Welcome to Script Wizard!\n\nScript Wizard provides scripting support of dynamic Pascal compiling and execution in IDE, including Script Window and Script Library. Script items can be called in menu item or triggered by some Events.
CnCodeFormatterWizard=Welcome to Code Formatter Wizard!\n\nThis Wizard can format code in IDE. Now only supports Pascal.
TCnCodeFormatterForm.Caption=Code Formatter Settings
TCnCodeFormatterForm.cbbBeginStyle.Items.Text=Next Line\nThis Line\n
TCnCodeFormatterForm.cbbKeywordStyle.Items.Text=Lower Case\nUpper Case\nUpper First Letter\nNo Change\n
TCnCodeFormatterForm.chkAutoWrap.Caption=Auto Wrap Line at:
TCnCodeFormatterForm.chkIgnoreArea.Caption=Do NOT Format Contents between {(} and {)}
TCnCodeFormatterForm.chkUsesSinglieLine.Caption=Single Line Mode for Every Uses Unit.
TCnCodeFormatterForm.grpAsm.Caption=ASM Settings
TCnCodeFormatterForm.grpCommon.Caption=Common Settings
TCnCodeFormatterForm.lblAsmHeadIndent.Caption=Line Head Indent:
TCnCodeFormatterForm.lblASMTab.Caption=Tab Width:
TCnCodeFormatterForm.lblBegin.Caption=Begin Style:
TCnCodeFormatterForm.lblKeyword.Caption=Keyword:
TCnCodeFormatterForm.lblNewLine.Caption=when Exceed:
TCnCodeFormatterForm.lblSpaceAfter.Caption=Space After Operator:
TCnCodeFormatterForm.lblSpaceBefore.Caption=Space Before Operator:
TCnCodeFormatterForm.lblTab.Caption=Tab Indent:
TCnCodeFormatterForm.tsPascal.Caption=Pascal
Hi,
Delphi Berlin 10.1 Update 2 was released today, while installing the update 2 version i lost my installed ide experts as soon as i installed CnWizards_1.1.1.849.exe and start the new ide version i get access violations preventing the IDE from starting if i uinstall the expert using control panel the problem does not happen.
Initially while delphi (un)installer had removed my old Berlin 10.1 version it removed the "HKEY_CURRENT_USER\Software\Embarcadero\BDS\18.0" completly so the expert was not "known" anymore after 10.1 update 2 installation. I added it manually since i knew the location the expert dll and i could start delphi there was only a problem that the cnwizards shortcuts did not work. When looking at the delphi settings "Editor options\key mappings" and placing the cnwizards enhanced modules all the way to the top (before anything else) in the default mapping module the error started happening. but they did not happen if the cnwizards listing was all the way on the bottom but then it seemed the keyboardshort cuts did not happen.
I also tried resetting my settings during uninstall of the expert by not keeping the setting files when asked and reinstalled again but it kept giving the same error immediatly then. Only solution at the moment was to uninstall the expert.
My guess is that if i find out where delphi keeps the order of the enhanced modules in the registry and changing this order in the registry so cnwizards is but all the way at the bottom again my ide will start but without some shortcuts working.
i'm not sure if i'm the only one with this problem, i'm also not 100% sure if it's due to the new berlin 10.1 update 2 but before when using 10.1 (plain version not update1) i did not have this problem. I'm also using idefixpack and thus compilerspeed pack but they seem to work fine when cnwizards is not installed.
Anyway if it actually is a problem with the berlin 10.1 update 2 version the reason is probably something related to the keyboard shortcuts (those enhanced modules).
I have not tested any nightlies yet and i understand 10.1 update 2 is sparkling new so nothing could have been tested yet but i'm just here documenting my experiance / problem i had (re)installing / using cnwizards into berlin 10.1 update 2.
Anyone else having problems with it ? if not what happens if you move the cnwizards in the default key mapping module all the way to the top ? the same access violation came immediatly then with me
在UAC(我这里是Win10环境)下,CnDebugViewer和被调试程序必须都运行在管理员权限下,DebugViewer才能接收到调试信息。
这个问题有可能解决吗?
在后UAC环境下的ChangeWindowMessageFilter是否有助于解决这个问题?
procedure TNavigation.SetOptions(const Value: TStringTreeOptions);
begin
(inherited TreeOptions).Assign(Value); //error at "." before Assign
end;
TNavigation is derived from TCustomVirtualStringTree
http://bbs.cnpack.org/forumdisplay.php?fid=25
up right corener - there is the edit box with two "search" buttons
none of those buttons work, nor does just striking enter while in edit-box - for both three actions it leads to some 404 page
Hello,
First, thank you very much for CNPack, it makes my adoption to Delphi IDE a bit less painful (after JetBrains IDEs).
The "Procedure List" tool is very useful but it's a bit buggy on my system. It works for "current" unit or "all opened" but gives the following error with "all in project" or "all in project group" settings.
I can live with "All opened" option but the tool doesn't remember previous settings and I can't jump to "open files" without using a mouse.
So I have a few suggestions for improving the usability of Procedure List wizard:
Best,
Evren
Embarcadero® Delphi XE7 Version 21.0.17707.5020
Ver: 1.1.2.885 Build 2017.03.08
Windows 7 SP1 64Bit
(GExperts 1.37 also enabled)
Error dump:
Access violation at address 0EE1DA7F in module 'CnWizards_DXE7'. Read of address 869CEFE4.
(0003CA7F){CnWizards_DXE7.dll} [0EE1DA7F]
[505C77F2]{vcl210.bpl } Vcl.Controls.TWinControl.DefaultHandler (Line 10079, "Vcl.Controls.pas" + 30) + $19
[505CC64B]{vcl210.bpl } Vcl.Controls.TWinControl.InvalidateDockHostSite (Line 13300, "Vcl.Controls.pas" + 24) + $D
[505CC616]{vcl210.bpl } Vcl.Controls.TWinControl.CMTextChanged (Line 13262, "Vcl.Controls.pas" + 2) + $4
[507110C5]{vcl210.bpl } Vcl.Forms.TCustomForm.CMTextChanged (Line 6823, "Vcl.Forms.pas" + 1) + $2
[505C2C15]{vcl210.bpl } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
(0003B2C0){CnWizards_DXE7.dll} [0EE1C2C0]
(0003CA69){CnWizards_DXE7.dll} [0EE1DA69]
(0003D2F1){CnWizards_DXE7.dll} [0EE1E2F1]
(0003DB74){CnWizards_DXE7.dll} [0EE1EB74]
[0EFF0937]{CnWizards_DXE7.dll} Unknown function at INITWIZARD0001 + $14C18F
[0EFF1BD2]{CnWizards_DXE7.dll} Unknown function at INITWIZARD0001 + $14D42A
[50059C58]{rtl210.bpl } System.@FreeMEM (Line 4439, "System.pas" + 20) + $0
[5006132C]{rtl210.bpl } System.@UStrClr (Line 24117, "System.pas" + 14) + $0
(00096CB9){CnWizards_DXE7.dll} [0EE77CB9]
[50059C58]{rtl210.bpl } System.@FreeMEM (Line 4439, "System.pas" + 20) + $0
(00097284){CnWizards_DXE7.dll} [0EE78284]
[0EFF42D6]{CnWizards_DXE7.dll} Unknown function at INITWIZARD0001 + $14FB2E
[505E6098]{vcl210.bpl } Vcl.StdCtrls.TCustomCombo.Change (Line 4344, "Vcl.StdCtrls.pas" + 2) + $12
[505E5600]{vcl210.bpl } Vcl.StdCtrls.TCustomComboBox.Change (Line 3986, "Vcl.StdCtrls.pas" + 4) + $2
[505E6263]{vcl210.bpl } Vcl.StdCtrls.TCustomCombo.Select (Line 4399, "Vcl.StdCtrls.pas" + 4) + $4
[505E6016]{vcl210.bpl } Vcl.StdCtrls.TCustomCombo.CNCommand (Line 4321, "Vcl.StdCtrls.pas" + 24) + $6
[505C2C15]{vcl210.bpl } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[505C76E2]{vcl210.bpl } Vcl.Controls.TWinControl.WndProc (Line 10038, "Vcl.Controls.pas" + 153) + $6
[5017B134]{rtl210.bpl } System.Classes.{System.Generics.Collections}TDictionary<System.Integer,System.Classes.IInterfaceList>.TryGetValue (Line 1974, "System.Generics.Collections.pas" + 6) + $2
[50172A9D]{rtl210.bpl } System.Classes.TObservers.IsObserving (Line 18580, "System.Classes.pas" + 1) + $F
[50172B18]{rtl210.bpl } System.Classes.TObservers.IsObserving (Line 18590, "System.Classes.pas" + 11) + $20
[505E5EF3]{vcl210.bpl } Vcl.StdCtrls.TCustomCombo.WndProc (Line 4293, "Vcl.StdCtrls.pas" + 70) + $4
[505E7805]{vcl210.bpl } Vcl.StdCtrls.TCustomComboBox.WndProc (Line 4999, "Vcl.StdCtrls.pas" + 27) + $4
[505C2850]{vcl210.bpl } Vcl.Controls.TControl.Perform (Line 7010, "Vcl.Controls.pas" + 10) + $8
[505C7847]{vcl210.bpl } Vcl.Controls.DoControlMsg (Line 10107, "Vcl.Controls.pas" + 12) + $11
[505C82CF]{vcl210.bpl } Vcl.Controls.TWinControl.WMCommand (Line 10382, "Vcl.Controls.pas" + 1) + $5
[505C2C15]{vcl210.bpl } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[210F232E]{designide210.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C
[505C76E2]{vcl210.bpl } Vcl.Controls.TWinControl.WndProc (Line 10038, "Vcl.Controls.pas" + 153) + $6
[505C6D1C]{vcl210.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9750, "Vcl.Controls.pas" + 3) + $6
[5016E218]{rtl210.bpl } System.Classes.StdWndProc (Line 16600, "System.Classes.pas" + 8) + $0
[5005F3E6]{rtl210.bpl } System.@ISClass (Line 16131, "System.pas" + 1) + $8
[505C77F2]{vcl210.bpl } Vcl.Controls.TWinControl.DefaultHandler (Line 10079, "Vcl.Controls.pas" + 30) + $19
[505C82DE]{vcl210.bpl } Vcl.Controls.TWinControl.WMCommand (Line 10382, "Vcl.Controls.pas" + 1) + $14
[505C2C15]{vcl210.bpl } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[50711DE0]{vcl210.bpl } Vcl.Forms.TraverseClients3 (Line 7325, "Vcl.Forms.pas" + 5) + $1E
[50711DFA]{vcl210.bpl } Vcl.Forms.TraverseClients3 (Line 7325, "Vcl.Forms.pas" + 5) + $38
[210F232E]{designide210.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C
[505C76E2]{vcl210.bpl } Vcl.Controls.TWinControl.WndProc (Line 10038, "Vcl.Controls.pas" + 153) + $6
[5017B134]{rtl210.bpl } System.Classes.{System.Generics.Collections}TDictionary<System.Integer,System.Classes.IInterfaceList>.TryGetValue (Line 1974, "System.Generics.Collections.pas" + 6) + $2
[50172A9D]{rtl210.bpl } System.Classes.TObservers.IsObserving (Line 18580, "System.Classes.pas" + 1) + $F
[50172B18]{rtl210.bpl } System.Classes.TObservers.IsObserving (Line 18590, "System.Classes.pas" + 11) + $20
[505E5EF3]{vcl210.bpl } Vcl.StdCtrls.TCustomCombo.WndProc (Line 4293, "Vcl.StdCtrls.pas" + 70) + $4
[505E7805]{vcl210.bpl } Vcl.StdCtrls.TCustomComboBox.WndProc (Line 4999, "Vcl.StdCtrls.pas" + 27) + $4
[505C6D1C]{vcl210.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9750, "Vcl.Controls.pas" + 3) + $6
[5016E218]{rtl210.bpl } System.Classes.StdWndProc (Line 16600, "System.Classes.pas" + 8) + $0
(0005D522){CnWizards_DXE7.dll} [0EE3E522]
[500636D0]{rtl210.bpl } System.@FinalizeArray (Line 31435, "System.pas" + 139) + $0
[500636C0]{rtl210.bpl } System.@FinalizeArray (Line 31423, "System.pas" + 127) + $0
[500636D0]{rtl210.bpl } System.@FinalizeArray (Line 31435, "System.pas" + 139) + $0
[5071635B]{vcl210.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10352, "Vcl.Forms.pas" + 23) + $1
[5071639E]{vcl210.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10382, "Vcl.Forms.pas" + 1) + $4
[50711916]{vcl210.bpl } Vcl.Forms.TCustomForm.ShowModal (Line 7148, "Vcl.Forms.pas" + 33) + $5
[0EFEE536]{CnWizards_DXE7.dll} Unknown function at INITWIZARD0001 + $149D8E
(000A9543){CnWizards_DXE7.dll} [0EE8A543]
[207DEA5B]{coreide210.bpl} VClient.TOTAKeyContext.Create (Line 2968, "VClient.pas" + 3) + $7
(000A3843){CnWizards_DXE7.dll} [0EE84843]
(000A226A){CnWizards_DXE7.dll} [0EE8326A]
[207DEC43]{coreide210.bpl} VClient.KeyBindingProc (Line 3027, "VClient.pas" + 10) + $4
[5016CF68]{rtl210.bpl } System.Classes.TComponent.UpdateAction (Line 15778, "System.Classes.pas" + 1) + $15
[50711D77]{vcl210.bpl } Vcl.Forms.ProcessUpdate (Line 7308, "Vcl.Forms.pas" + 1) + $11
[5005F3E6]{rtl210.bpl } System.@ISClass (Line 16131, "System.pas" + 1) + $8
[50711DE0]{vcl210.bpl } Vcl.Forms.TraverseClients3 (Line 7325, "Vcl.Forms.pas" + 5) + $1E
[20209DF4]{htmide210.bpl} HTMLMarkupCreators.TNewSimpleMarkupPage.Selected (Line 601, "HTMLMarkupCreators.pas" + 1) + $12
[207E8414]{coreide210.bpl} KbClient.TIDEKBDFrameAPI.MapAndEvalInternal (Line 842, "KbClient.pas" + 10) + $1
[207E7E91]{coreide210.bpl} KbClient.HandleKey (Line 572, "KbClient.pas" + 6) + $2
[207E8398]{coreide210.bpl} KbClient.TIDEKBDFrameAPI.ProcessKeyStroke (Line 816, "KbClient.pas" + 234) + $3
[207E8F30]{coreide210.bpl} KbClient.TIDEKBDChildAPI.ProcessKeyStroke (Line 1368, "KbClient.pas" + 14) + $6
[207D7AAE]{coreide210.bpl} EditorControl.TCustomEditControl.DoKeyDown (Line 7529, "EditorControl.pas" + 18) + $8
[207CD356]{coreide210.bpl} EditorControl.TCustomEditControl.CNKeyDown (Line 2048, "EditorControl.pas" + 14) + $12
[505C2C15]{vcl210.bpl } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[210F232E]{designide210.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C
[505C76E2]{vcl210.bpl } Vcl.Controls.TWinControl.WndProc (Line 10038, "Vcl.Controls.pas" + 153) + $6
[505C6D1C]{vcl210.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9750, "Vcl.Controls.pas" + 3) + $6
[5016E218]{rtl210.bpl } System.Classes.StdWndProc (Line 16600, "System.Classes.pas" + 8) + $0
[50716088]{vcl210.bpl } Vcl.Forms.TApplication.IsKeyMsg (Line 10260, "Vcl.Forms.pas" + 25) + $12
[50716122]{vcl210.bpl } Vcl.Forms.TApplication.IsHintMsg (Line 10281, "Vcl.Forms.pas" + 3) + $2
[50716337]{vcl210.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10346, "Vcl.Forms.pas" + 17) + $31
[5071639E]{vcl210.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10382, "Vcl.Forms.pas" + 1) + $4
[507166D1]{vcl210.bpl } Vcl.Forms.TApplication.Run (Line 10520, "Vcl.Forms.pas" + 26) + $3
code formatter inserts blank line(s) after end.
Version: 1.1.1.854_Unstable Build 2016.09.05
function TForm.Foo(): Boolean;
begin
end;
end.
after formatting
function TForm.Foo(): Boolean;
begin
end;
end.
before format
procedure foo()
begin
begin
//comment
begin
end;
end;
end;
after format
procedure foo()
begin
begin
//comment
begin
end;
end;
end;
should be
procedure foo()
begin
begin
//comment should be aligned to next statement
begin
end;
end;
end;
Hi,
Drag & drop and component into FMX form designer, It will paint a red rectangle.
few versions back uses list was wrapped according "right margin" now when i have "Auto wrap line at" disabled it's producing long lines
The title have all hahahaha
according http://edn.embarcadero.com/article/10280#3.0 we should use PascalCase/UpperCamelCase for naming it Would be nice to capitalize first letter automatically during code format
like
procedure TDBEventThread.processEvents;
var
i: Integer;
str: string;
begin
for i := 0 to (EventCount - 1) do
begin
if (StatusVectorArray[i] <> 0) then
str := str + FEvents[i] + ', ';
end;
to
procedure TDBEventThread.ProcessEvents;
var
I: Integer;
Str: string;
begin
for I := 0 to (EventCount - 1) do
begin
if (StatusVectorArray[I] <> 0) then
Str := Str + FEvents[I] + ', ';
end;
TCnMethodHook
need to be unhooked and re-hooked every time the original method is called, with code like so:
MyCnHook.UnhookMethod;
try
OriginalMethod(1, 2, 3);
finally
MyCnHook.HookMethod;
end;
The call to HookMethod
overwrites any existing hooks that are already in place - such as those from other IDE wizards. This means that CnPack can't be installed at the same time as any other wizard that needs to hook the same methods.
In addition, TCnMethodHook
is slow - it needs to change virtual memory protection, write the memory, update protection, and flush the CPU instruction case every time a hooked method is called. For methods where performance is important, such as IDE painting, this is not ideal.
If CnPack's method hook code was updated to use DDetours (an open-source, MPL-licensed, method hook library for Delphi - see https://code.google.com/p/delphi-detours-library/wiki/DDetours ) it would solve these problems.
DDetours hooks once - it does not need to hook and unhook every time. Instead, the original method implementation is called via new "trampoline" pointer. Several DDetours hooks can be installed on the one method, and will "chain" - that is, the first's trampoline is the second, and its trampoline is the third, and so forth. Finally, because it only patches once, it is faster and does not flush the CPU cache or write to memory every time it is used.
I have modified a fork of CnPack to use DDetours, and verified that (a) it works, and (b) several IDE wizards can now hook the same functions at the same time. I will submit a pull request soon after entering this issue.
Hi When I try to compile cnWizard_D10.dpk, it show me the message error: Unit 'CnConsts' not found.
I wrote a script to save current time.
But if I build from a project group, I'll save in the active project path.
I searched the declaration pas, but found nothing about this.
What should I do? Thanks.
{*******************************************************}
{ }
{ Pascal Script Source File }
{ Run by RemObjects Pascal Script in CnWizards }
{ }
{ Generated by CnPack IDE Wizards }
{ }
{ Add Compile Time By KngStr }
{ }
{*******************************************************}
program CompileTime;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure GenCompInt;
var
CompileTime: string;
begin
CompileTime := '';
CompileTime := CompileTime + '// Author : KngStr' + #13#10;
CompileTime := CompileTime + '// Link : http://www.kngstr.com/?compiletime' + #13#10;
CompileTime := CompileTime + '// Compiler : ' + CompilerName + #13#10;
CompileTime := CompileTime + '// Useage : ' + #13#10;
CompileTime := CompileTime + '// FormatCompileTime(''yyyymmddhhnn'')' + #13#10;
CompileTime := CompileTime + 'const ' + #13#10 +
' CompileTime = ' + FloatToStr(Now) + ';' + #13#10 +
' CompileTimeInt = ' + FormatDateTime('yyyymmddhhnnss', Now) + ';' + #13#10#13#10;
CompileTime := CompileTime + 'function FormatCompileTime(const Format: string): string;' + #13#10;
CompileTime := CompileTime + 'begin' + #13#10 +
' Result := FormatDateTime(Format, CompileTime);' + #13#10 +
'end;' + #13#10;
Writeln(ExtractFilePath(CnOtaGetCurrentProjectFileName) + 'CompileTime.inc');
SaveStringToFile(CompileTime, ExtractFilePath(CnOtaGetCurrentProjectFileName) + 'CompileTime.inc');
end;
begin
GenCompInt;
end.
before format
procedure foo()
begin
end;
procedure test()
var
I: Integer;
begin
case I of
1:
foo();
//comment
2:
foo();
3:
foo();
end;
end;
after format broken ident before "2:"
procedure foo()
begin
end;
procedure test()
var
I: Integer;
begin
case I of
1:
foo();
//comment
2:
foo();
3:
foo();
end;
end;
same as title
have any release DATE coule tell? thks!
https://github.com/remobjects/pascalscript/blob/master/Source/uPSCompiler.pas
btPChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFPCHAR', {$IFDEF PS_PANSICHAR}'array of PAnsiChar'{$ELSE}'array of PChar'{$ENDIF});
https://github.com/gabr42/GpSQLBuilder/blob/master/GpSQLBuilder.pas
https://github.com/gabr42/GpSQLBuilder/blob/master/GpSQLBuilder.AST.pas
CnPack 1.1.0.826_Unstable
At exit Delphi 10 throws an exception. Here is madExcept report:
date/time : 2017-04-27, 15:35:59, 558ms
computer name : DESKTOP-757RB0S
user name : w10
registered owner : w10
operating system : Windows 10 x64 build 14393
system language : English
system up time : 2 hours 39 minutes
program up time : 1 minute 28 seconds
processors : 2x Intel(R) Core(TM) i7-6700K CPU @ 4.00GHz
physical memory : 2492/4095 MB (free/total)
free disk space : (C:) 41,39 GB
display mode : 1920x1080, 32 bit
process id : $3c4
allocated memory : 120,15 MB
largest free block : 1,99 GB
command line : "C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\bds.exe" -pDelphi
executable : bds.exe
current module : madExcept_.bpl
exec. date/time : 2015-11-13 07:55
version : 23.0.21418.4207
compiled with : Delphi 10 Seattle
madExcept version : 4.0.17
callstack crc : $0bac0c43, $a7b0595a, $bd115280
exception number : 1
exception class : EAccessViolation
exception message : Access violation at address 50067110 in module 'rtl230.bpl'. Read of address 08F526EC.
main thread ($14dc):
5006710e +0e rtl230.bpl System 36556 +9 @IntfClear
5005f77c +08 rtl230.bpl System 16261 +1 TObject.Free
093046ae +32 fmx230.bpl FMX.BehaviorManager 114 +2 TBehaviorServices.Destroy
5005f77c +08 rtl230.bpl System 16261 +1 TObject.Free
09304a9d +0d fmx230.bpl FMX.BehaviorManager 199 +1 TBehaviorServices.DestroyCurrent@
5006108e +3e rtl230.bpl System 22610 +17 FinalizeUnits
59859f24 +54 madExcept_.bpl madExcept InterceptFinalizeUnits
59859f2c +00 madExcept_.bpl madExcept InterceptHalt0FinalizeUnits
50061708 +ac rtl230.bpl System 24009 +87 @hALT0
77bfeb71 +81 ntdll.dll LdrUnloadDll
76089ef0 +10 KERNELBASE.dll FreeLibrary
20646e70 +9c coreide230.bpl ExptMain 143 +16 TExpertLib.Destroy
5005f77c +08 rtl230.bpl System 16261 +1 TObject.Free
20647025 +15 coreide230.bpl ExptMain 210 +3 TExpertServices.Destroy
5005f77c +08 rtl230.bpl System 16261 +1 TObject.Free
50ad2285 +31 vcl230.bpl Vcl.Forms 3770 +3 TCustomForm.DoDestroy
50ad20d6 +52 vcl230.bpl Vcl.Forms 3735 +23 TCustomForm.Destroy
21175237 +3b designide230.bpl DeskForm 851 +8 TDesktopForm.Destroy
5005f77c +08 rtl230.bpl System 16261 +1 TObject.Free
500616c6 +6a rtl230.bpl System 23970 +48 @hALT0
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $143c:
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
753b8ed3 +63 USER32.dll MsgWaitForMultipleObjects
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $115c:
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $f1c:
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $a40:
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $1424:
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $3d0:
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $1708:
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
5016e219 +49 rtl230.bpl System.Classes 14361 +21 ThreadProc
50061834 +28 rtl230.bpl System 24230 +45 ThreadWrapper
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $1680:
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
76091b83 +13 KERNELBASE.dll WaitForMultipleObjects
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $630: priority:2
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
76091b83 +13 KERNELBASE.dll WaitForMultipleObjects
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $15a0:
7608ae53 +93 KERNELBASE.dll WaitForSingleObjectEx
7608adad +0d KERNELBASE.dll WaitForSingleObject
21405b7a +26 vclide230.bpl IDEVirtualTrees 5267 +4 TWorkerThread.Execute
5016e219 +49 rtl230.bpl System.Classes 14361 +21 ThreadProc
50061834 +28 rtl230.bpl System 24230 +45 ThreadWrapper
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
thread $d2c: priority:-1
76091c8a +ea KERNELBASE.dll WaitForMultipleObjectsEx
74a1746c +8c msvcrt.dll endthreadex
5985ab55 +0d madExcept.bpl madExcept CallThreadProcSafe
5985abba +32 madExcept_.bpl madExcept ThreadExceptFrame
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
created by main thread ($14dc) at:
74a1734f +7f msvcrt.dll _beginthreadex
thread $974:
7608ae53 +93 KERNELBASE.dll WaitForSingleObjectEx
7608adad +0d KERNELBASE.dll WaitForSingleObject
74a1746c +8c msvcrt.dll endthreadex
5985ab55 +0d madExcept.bpl madExcept CallThreadProcSafe
5985abba +32 madExcept_.bpl madExcept ThreadExceptFrame
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
created by main thread ($14dc) at:
74a1734f +7f msvcrt.dll _beginthreadex
thread $1774: priority:2
753c24cd +4d USER32.dll GetMessageA
5985ab55 +0d madExcept_.bpl madExcept CallThreadProcSafe
5985abba +32 madExcept_.bpl madExcept ThreadExceptFrame
776962c2 +22 KERNEL32.DLL BaseThreadInitThunk
created by main thread ($14dc) at:
742c30ab +00 WINMM.dll
modules:
00400000 bds.exe 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
02d90000 vclimg230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
02df0000 SHFolder.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
040a0000 identity230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\bds
08c80000 Borland.Build.Tasks.Common.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
08d20000 Borland.Build.Tasks.Delphi.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
08d80000 Borland.Globalization.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
08da0000 Borland.Build.Tasks.Common.XmlSerializers.dll 23.0.0.0 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
08ee0000 codequeryide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
092c0000 fmx230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
09c70000 dcc32230.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
09f80000 dcc64230.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0d260000 profilemgride230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
0d300000 CustomIPTransport230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0d340000 DataSnapCommon230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0d390000 paclientcore230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0d4a0000 DataSnapClient230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0e170000 CnWizards_D10S.dll 1.1.2.885 C:\Program Files (x86)\CnPack\CnWizards
0f1e0000 Borland.Build.Tasks.Shared.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0f520000 Borland.Studio.ToolsAPI.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0f5a0000 Borland.Studio.Refactoring.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0f6c0000 Borland.Studio.Host.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0f8e0000 Borland.Studio.Delphi.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0faf0000 Embarcadero.Studio.Delphi.Gate.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0fb20000 Borland.Studio.Vcl.Design.Refactoring.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
0fcd0000 DataExplorerDBXPlugin230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
0feb0000 Borland.VclRtl.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10050000 DBXSqliteDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10080000 DataExplorerService230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
100e0000 DBXOdbcDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10110000 DBXFirebirdDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10690000 bindengine230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10830000 DataExplorerDBXPluginInt230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10ab0000 dclcommon230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10df0000 ExpertsUI230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10ed0000 vcldsnap230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
10fc0000 dclDataSnapCommon230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
11000000 Borland.Studio.Interop.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
11070000 dclbindcomp230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
11450000 bindcomp230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
116c0000 dclDataSnapClient230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
11780000 ExpertsCreators230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
202d0000 coreproide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
20330000 dbkdebugide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
20480000 coreide230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21160000 designide230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21320000 vclide230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21600000 tlib230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
216b0000 BrcIde.Dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21960000 vclactnband230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21be0000 HTMLDlgs230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
21d60000 delphicoreide230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22150000 boreditu.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22470000 win32debugide230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
224b0000 delphide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
22600000 dotnetcoreide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
22e50000 dcldb230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22ec0000 dclDBXDriversInt230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22ed0000 dcldbxdrivers230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22ee0000 dcldbxdriversEnt230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
22ef0000 dclstd230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
23000000 dclmid230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
23120000 dclsoap230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\bin
23200000 dclnet230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
232e0000 dcldbx230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
234d0000 dclDataSnapServer230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
40000000 Borland.Delphi.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50030000 borlndmm.dll 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50050000 rtl230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50960000 vcl230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50d50000 vclx230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50da0000 vclie230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50eb0000 vclhie230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
50fc0000 dsnap230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51030000 dbrtl230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
510e0000 xmlrtl230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51330000 inet230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51740000 vcldb230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51940000 dbexpress230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51a00000 dbxcds230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51a70000 MLCC230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51ad0000 delphicoreproide230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
51b00000 comcore230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
51e10000 delphicompro230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
51ee0000 soaprtl230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52240000 plugview230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52280000 asmview230.bpl 23.0.21418.4207 c:\program files (x86)\embarcadero\studio\17.0\Bin
522e0000 tlbview230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52480000 vcldesigner230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
524d0000 DotNetCoreAssemblies230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
525f0000 DbxClientDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52670000 DbxCommonDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
528b0000 DBXDb2Driver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
528d0000 DBXInformixDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52900000 DBXInterBaseDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52920000 DBXMSSQLDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52950000 DBXMySQLDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52980000 DBXOracleDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
529a0000 DBXSybaseASADriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
529c0000 DBXSybaseASEDriver230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
52a20000 DataSnapServer230.bpl 23.0.21418.4207 C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
57000000 madBasic_.bpl C:\Program Files (x86)\madCollection\madBasic\BDS17\win32
57800000 madDisAsm_.bpl C:\Program Files (x86)\madCollection\madDisAsm\BDS17\win32
59800000 madExcept_.bpl C:\Program Files (x86)\madCollection\madExcept\BDS17\win32
6acb0000 DNSAPI.dll 6.2.14393.953 C:\WINDOWS\SYSTEM32
6ad30000 uiautomationcore.dll 7.2.14393.479 C:\Windows\System32
6ae90000 jscript9.dll 11.0.14393.953 C:\Windows\System32
6b220000 msls31.dll 3.10.349.0 C:\Windows\System32
6b4a0000 DWrite.dll 6.2.14393.953 C:\Windows\System32
6b6a0000 d2d1.dll 6.2.14393.693 C:\Windows\System32
6bb80000 MLANG.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6bbd0000 rasadhlp.dll 6.2.14393.0 C:\Windows\System32
6bbe0000 msimtf.dll 6.2.14393.0 C:\WINDOWS\system32
6bbf0000 WINNSI.DLL 6.2.14393.0 C:\WINDOWS\SYSTEM32
6bc00000 ondemandconnroutehelper.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6bc10000 ieapfltr.dll 11.0.14393.1066 C:\Windows\System32
6bd90000 srpapi.dll 6.2.14393.0 C:\Windows\System32
6bdc0000 mshtml.dll 11.0.14393.1066 C:\Windows\System32
6d160000 ieframe.dll 11.0.14393.1066 C:\Windows\System32
6dd10000 RTWorkQ.DLL 6.2.14393.479 C:\WINDOWS\SYSTEM32
6dd40000 MFPlat.DLL 6.2.14393.953 C:\WINDOWS\SYSTEM32
6e240000 PortableDeviceApi.dll 6.2.14393.0 C:\Windows\System32
6e470000 fwpuclnt.dll 6.2.14393.0 C:\WINDOWS\System32
6e4c0000 DEVOBJ.dll 6.2.14393.0 C:\WINDOWS\System32
6e4f0000 MMDevApi.dll 6.2.14393.953 C:\WINDOWS\System32
6e550000 DevDispItemProvider.dll 6.2.14393.0 C:\Windows\System32
6e570000 PlayToDevice.dll 6.2.14393.1066 C:\Windows\System32
6e5d0000 dlnashext.dll 6.2.14393.1066 C:\Windows\System32
6e620000 thumbcache.dll 6.2.14393.953 C:\Windows\System32
6e670000 LINKINFO.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6e680000 SAMLIB.dll 6.2.14393.82 C:\WINDOWS\SYSTEM32
6e6a0000 netutils.dll 6.2.14393.0 C:\WINDOWS\System32
6e6b0000 DAVHLPR.dll 6.2.14393.0 C:\WINDOWS\System32
6e6c0000 davclnt.dll 6.2.14393.0 C:\WINDOWS\System32
6e6e0000 drprov.dll 6.2.14393.0 C:\WINDOWS\System32
6e6f0000 ntlanman.dll 6.2.14393.0 C:\WINDOWS\System32
6e710000 ActXPrxy.dll 6.2.14393.1066 C:\Windows\System32
6e8a0000 ntmarta.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6e8d0000 dbgcore.DLL 6.2.14321.1024 C:\WINDOWS\SYSTEM32
6e900000 dbghelp.dll 6.2.14321.1024 C:\WINDOWS\SYSTEM32
6ea50000 FaultRep.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6eab0000 SECUR32.DLL 6.2.14393.0 C:\WINDOWS\SYSTEM32
6eac0000 DPAPI.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6ead0000 odbc32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6eb70000 srvcli.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
6eb90000 ntshrui.dll 6.2.14393.479 C:\WINDOWS\SYSTEM32
6ec60000 msxml3.dll 8.110.14393.953 C:\WINDOWS\System32
6edf0000 System.Design.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System.Design\d2da0bcebd14923b78a891587d8dad1a
6f830000 System.Windows.Forms.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System.Windows.Forms\0f305c60a30db4482e9663104bbcf7a8
70410000 System.Drawing.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System.Drawing\cdcce378eb7a99479cfdfb6f332d3f72
705a0000 tiptsf.dll 6.2.14393.206 C:\Program Files (x86)\Common Files\microsoft shared\ink
70620000 System.Configuration.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System.Configuration\649d90e2133d3555a2359bf4673bc283
70720000 System.Xml.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System.Xml\026d44ef25a1b7ac0ec4018d2e110bd7
70c60000 System.ni.dll 2.0.50727.8750 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\System\c7d0e65d5d01d4d5381bb1d40c4c56c7
71410000 msimg32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
71420000 twinapi.appcore.dll 6.2.14393.1066 C:\WINDOWS\system32
71520000 dxgi.dll 6.2.14393.953 C:\WINDOWS\system32
715b0000 d3d11.dll 6.2.14393.953 C:\WINDOWS\system32
717e0000 dcomp.dll 6.2.14393.0 C:\WINDOWS\system32
71900000 dataexchange.dll 6.2.14393.206 C:\WINDOWS\system32
71950000 mswsock.dll 6.2.14393.0 C:\WINDOWS\system32
719a0000 mscorjit.dll 2.0.50727.8745 C:\Windows\Microsoft.NET\Framework\v2.0.50727
71a00000 mscorsec.dll 2.0.50727.8745 C:\Windows\Microsoft.NET\Framework\v2.0.50727
71a20000 mscorlib.ni.dll 2.0.50727.8745 C:\WINDOWS\assembly\NativeImages_v2.0.50727_32\mscorlib\9ad5d97ade63ecd8b60f63393a947d6e
72520000 sxs.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
725b0000 d3d9.dll 6.2.14393.447 C:\WINDOWS\SYSTEM32
72710000 fusion.dll 2.0.50727.8745 C:\Windows\Microsoft.NET\Framework\v2.0.50727
72720000 MSVCR80.dll 8.0.50727.9268 C:\WINDOWS\WinSxS\x86_microsoft.vc80.crt_1fc8b3b9a1e18e3b_8.0.50727.9268_none_d08e1538442a243e
727c0000 mscorwks.dll 2.0.50727.8745 C:\Windows\Microsoft.NET\Framework\v2.0.50727
72d70000 mscoreei.dll 4.6.1586.0 C:\Windows\Microsoft.NET\Framework\v4.0.30319
72df0000 mscoree.dll 6.2.14393.0 C:\Windows\System32
72e50000 rsaenh.dll 6.2.14393.0 C:\WINDOWS\system32
72e80000 CRYPTSP.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
72ea0000 msxml6.dll 6.30.14393.1066 C:\Windows\System32
73090000 propsys.dll 7.0.14393.0 C:\WINDOWS\system32
731e0000 WindowsCodecs.dll 6.2.14393.1066 C:\WINDOWS\SYSTEM32
73350000 gdiplus.dll 6.2.14393.953 C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.14393.953_none_baad48403594ab3f
734c0000 olepro32.dll 6.2.14393.1066 C:\WINDOWS\SYSTEM32
734e0000 WINSTA.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73530000 wtsapi32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73540000 cscapi.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73550000 wkscli.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73560000 shfolder.dll 6.2.14393.0 C:\WINDOWS\system32
73570000 DCIMAN32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73580000 DDRAW.dll 6.2.14393.953 C:\WINDOWS\SYSTEM32
73670000 GLU32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
736a0000 oledlg.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
736c0000 COMCTL32.dll 6.10.14393.953 C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.14393.953_none_89c2555adb023171
738d0000 iphlpapi.dll 6.2.14393.953 C:\WINDOWS\SYSTEM32
73900000 winhttp.dll 6.2.14393.953 C:\WINDOWS\SYSTEM32
739a0000 oleacc.dll 7.2.14393.1066 C:\WINDOWS\SYSTEM32
73a00000 opengl32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73ae0000 wsock32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73af0000 netapi32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
73b10000 wininet.dll 11.0.14393.1066 C:\WINDOWS\SYSTEM32
73d80000 bcrypt.dll 6.2.14393.576 C:\WINDOWS\SYSTEM32
73da0000 iertutil.dll 11.0.14393.1066 C:\WINDOWS\SYSTEM32
73fd0000 WINMMBASE.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
74000000 MPR.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
74020000 WINSPOOL.DRV 6.2.14393.953 C:\WINDOWS\SYSTEM32
74090000 urlmon.dll 11.0.14393.1066 C:\WINDOWS\SYSTEM32
74230000 dwmapi.dll 6.2.14393.206 C:\WINDOWS\SYSTEM32
74250000 USERENV.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
74270000 VERSION.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
74280000 MSACM32.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
742a0000 samcli.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
742c0000 WINMM.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
742f0000 UxTheme.dll 6.2.14393.0 C:\WINDOWS\SYSTEM32
74370000 AcGenral.DLL 6.2.14393.953 C:\WINDOWS\AppPatch
745e0000 apphelp.dll 6.2.14393.0 C:\WINDOWS\system32
74680000 CRYPTBASE.dll 6.2.14393.0 C:\WINDOWS\System32
74690000 SspiCli.dll 6.2.14393.576 C:\WINDOWS\System32
746b0000 msvcp_win.dll 6.2.14393.0 C:\WINDOWS\System32
74730000 PSAPI.DLL 6.2.14393.0 C:\WINDOWS\System32
74740000 ole32.dll 6.2.14393.1066 C:\WINDOWS\System32
74830000 clbcatq.dll 2001.12.10941.16384 C:\WINDOWS\System32
748c0000 OLEAUT32.dll 6.2.14393.1066 C:\WINDOWS\System32
74960000 wintrust.dll 6.2.14393.953 C:\WINDOWS\System32
749b0000 msvcrt.dll 7.0.14393.0 C:\WINDOWS\System32
74a70000 powrprof.dll 6.2.14393.0 C:\WINDOWS\System32
74ac0000 shcore.dll 6.2.14393.953 C:\WINDOWS\System32
74cc0000 ws2_32.dll 6.2.14393.206 C:\WINDOWS\System32
74d30000 SETUPAPI.dll 6.2.14393.0 C:\WINDOWS\System32
751a0000 advapi32.dll 6.2.14393.0 C:\WINDOWS\System32
75220000 sechost.dll 6.2.14393.0 C:\WINDOWS\System32
75270000 IMAGEHLP.DLL 6.2.14393.0 C:\WINDOWS\System32
75290000 ucrtbase.dll 6.2.14393.0 C:\WINDOWS\System32
75370000 NSI.dll 6.2.14393.0 C:\WINDOWS\System32
75380000 win32u.dll 6.2.14393.51 C:\WINDOWS\System32
753a0000 USER32.dll 6.2.14393.576 C:\WINDOWS\System32
75500000 RPCRT4.dll 6.2.14393.82 C:\WINDOWS\System32
755d0000 gdi32full.dll 6.2.14393.1066 C:\WINDOWS\System32
75730000 CRYPT32.dll 6.2.14393.351 C:\WINDOWS\System32
75910000 Msctf.dll 6.2.14393.953 C:\WINDOWS\System32
75a50000 windows.storage.dll 6.2.14393.1066 C:\WINDOWS\System32
75fc0000 KERNELBASE.dll 6.2.14393.1066 C:\WINDOWS\System32
761d0000 MSASN1.dll 6.2.14393.0 C:\WINDOWS\System32
761e0000 SHELL32.dll 6.2.14393.1066 C:\WINDOWS\System32
77660000 profapi.dll 6.2.14393.0 C:\WINDOWS\System32
77670000 kernel.appcore.dll 6.2.14393.0 C:\WINDOWS\System32
77680000 KERNEL32.DLL 6.2.14393.0 C:\WINDOWS\System32
77760000 GDI32.dll 6.2.14393.206 C:\WINDOWS\System32
77790000 IMM32.DLL 6.2.14393.0 C:\WINDOWS\System32
777c0000 combase.dll 6.2.14393.576 C:\WINDOWS\System32
779e0000 bcryptPrimitives.dll 6.2.14393.0 C:\WINDOWS\System32
77a50000 SHLWAPI.dll 6.2.14393.0 C:\WINDOWS\System32
77aa0000 comdlg32.dll 6.2.14393.479 C:\WINDOWS\System32
77b90000 cfgmgr32.dll 6.2.14393.0 C:\WINDOWS\System32
77bd0000 ntdll.dll 6.2.14393.479 C:\WINDOWS\SYSTEM32
processes:
0000 Idle 0 0 0
0004 System 0 0 0
0110 smss.exe 0 0 0
0174 csrss.exe 0 0 0
01c4 wininit.exe 0 0 0
01cc csrss.exe 1 0 0
0214 services.exe 0 0 0
021c lsass.exe 0 0 0
0260 winlogon.exe 1 0 0
02a8 svchost.exe 0 0 0
02ec svchost.exe 0 0 0
0350 dwm.exe 1 0 0
038c svchost.exe 0 0 0
03bc svchost.exe 0 0 0
03f8 svchost.exe 0 0 0
0128 svchost.exe 0 0 0
02bc svchost.exe 0 0 0
043c svchost.exe 0 0 0
046c vmacthlp.exe 0 0 0
0508 svchost.exe 0 0 0
0530 WUDFHost.exe 0 0 0
0590 svchost.exe 0 0 0
05f4 spoolsv.exe 0 0 0
061c svchost.exe 0 0 0
070c svchost.exe 0 0 0
0774 svchost.exe 0 0 0
077c Service_KMS.exe 0 0 0
078c vmtoolsd.exe 0 0 0
0794 VGAuthService.exe 0 0 0
07c4 MsMpEng.exe 0 0 0
04ec Memory Compression 0 0 0
0a70 dllhost.exe 0 0 0
0a90 WmiPrvSE.exe 0 0 0
0b64 sihost.exe 1 4 20 normal C:\Windows\System32
0b74 svchost.exe 1 4 1 normal C:\Windows\System32
0b90 svchost.exe 0 0 0
0bc4 taskhostw.exe 1 13 14 normal C:\Windows\System32
0bd8 procexp64.exe 1 0 0
0aa8 msdtc.exe 0 0 0
0b0c RuntimeBroker.exe 1 36 95 normal C:\Windows\System32
0c70 explorer.exe 1 189 229 normal C:\Windows
0cec NisSrv.exe 0 0 0
0e10 SearchIndexer.exe 0 0 0
0ef4 ShellExperienceHost.exe 1 4 51 normal C:\Windows\SystemApps\ShellExperienceHost_cw5n1h2txyewy
0ff0 SearchUI.exe 1 19 50 normal C:\Windows\SystemApps\Microsoft.Windows.Cortana_cw5n1h2txyewy
13b8 MSASCuiL.exe 1 389 135 normal C:\Program Files\Windows Defender
11d8 vmtoolsd.exe 1 56 33 normal C:\Program Files\VMware\VMware Tools
1378 fontdrvhost.exe 1 0 0
0c7c SkypeHost.exe 1 4 1 normal C:\Program Files\WindowsApps\Microsoft.SkypeApp_11.14.662.0_x64__kzf8qxf38zg5c
1748 ApplicationFrameHost.exe 1 20 10 normal C:\Windows\System32
0d38 SystemSettings.exe 1 11 36 normal C:\Windows\ImmersiveControlPanel
1720 dllhost.exe 1 4 4 normal C:\Windows\System32
0308 audiodg.exe 0 0 0
03c4 bds.exe 1 813 294 normal C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
09a0 SearchProtocolHost.exe 0 0 0
0d40 SearchFilterHost.exe 0 0 0
0ca8 bds.exe 1 792 320 normal C:\Program Files (x86)\Embarcadero\Studio\17.0\bin
hardware:
cpu registers:
eax = 08f526e4
ebx = 0149f83c
ecx = 00000001
edx = 03d4f73c
esi = 09300f2c
edi = 00000001
eip = 50067110
esp = 0149f808
ebp = 0149fc48
stack dump:
0149f808 3c f7 d4 03 38 f8 49 01 - 49 3d 06 50 18 b8 02 05 <...8.I.I=.P....
0149f818 01 00 00 00 00 00 00 00 - 38 f8 49 01 46 4d 0d 50 ........8.I.FM.P
0149f828 5f 4d 0d 50 18 56 4c 0e - 10 b8 02 05 00 00 00 00 _M.P.VL.........
0149f838 00 00 00 00 00 00 80 3f - 00 00 00 00 00 00 00 00 .......?........
0149f848 40 f3 3f 09 50 ee 3f 09 - 00 ed 4b 09 e8 e6 4b 09 @.?.P.?...K...K.
0149f858 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f868 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f878 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f888 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f898 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f8a8 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f8b8 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f8c8 00 00 00 00 6c de 4b 09 - 01 5c f3 08 00 00 00 00 ....l.K........
0149f8d8 01 00 00 00 d8 05 03 00 - 01 00 00 00 02 00 00 00 ................
0149f8e8 c4 03 00 00 ff ff ff ff - c4 03 00 00 ff ff ff ff ................
0149f8f8 00 00 00 00 90 c4 39 19 - 94 e7 bd 10 18 63 31 0e ......9......c1.
0149f908 0c 59 c1 77 50 f9 49 00 - 00 00 00 00 c4 26 65 73 .Y.wP.I......&es
0149f918 2c f9 49 01 e8 65 31 74 - 00 00 00 00 00 00 00 00 ,.I..e1t........
0149f928 01 00 00 00 fe ff ff ff - 93 fb 3a 75 d8 05 03 00 ..........:u....
0149f938 82 00 00 00 00 00 00 00 - 8c f9 49 01 69 75 3b 75 ..........I.iu;u
disassembling:
[...]
50067102 36548 test edx, edx
50067104 36549 jz loc_50067114
50067106 36550 mov dword ptr [eax], 0
5006710c 36554 push eax
5006710d 36555 push edx
5006710e 36556 > mov eax, [edx]
50067110 36557 call dword ptr [eax+8]
50067113 36558 pop eax
50067114 36563 ret
in Windows.pas there is SYNCHRONIZE constant
when you format code like
TSendThread = class(TThread)
procedure Foo;
protected
procedure Execute; override;
end;
procedure TSendThread.Execute;
begin
Synchronize(Foo);
end;
it will use constant to format method name
TSendThread = class(TThread)
procedure Foo;
protected
procedure Execute; override;
end;
procedure TSendThread.Execute;
begin
SYNCHRONIZE(Foo);
end;
at least it should not format when there is possible name collision
imagine i'm calling function like
Import('foo',
':bar,:Description,NULL,NULL,NULL,NULL',
['bar', 'Description'],
['bar', 'LANSPEDAT515.Des110'], XmlNodes);
currently formatter can wrap after x chars or make it one line (disable auto wraps)
#1
we would need another options like "respect multiline/do not change wrapping when multiline"
Import('foo',
':bar,:Description,NULL,NULL,NULL,NULL',
['bar', 'Description'],
['bar', 'LANSPEDAT515.Des110'], XmlNodes);
#2
align when multiline
Import('foo',
':bar,:Description,NULL,NULL,NULL,NULL',
['bar', 'Description'],
['bar', 'LANSPEDAT515.Des110'], XmlNodes);
// before formatting
function TZConnectionHelper.ExecuteSelect(const Sql: string): TZReadOnlyQuery;
begin
Result := TZReadOnlyQuery.Create(nil);
Result.SQL.Text := Sql;
end;
// after formatting
function TZConnectionHelper.ExecuteSelect(const Sql: string): TZReadOnlyQuery;
begin
Result := TZReadOnlyQuery.Create(nil);
Result.Sql.Text := Sql;
Result.SQL.Text changed to Result.Sql.Text
function Foo(): Boolean; // test
procedure Bar();
begin
end;
begin
end;
after first format - ok
function Foo(): Boolean; // test
procedure Bar();
begin
end;
begin
end;
after second format - it will add two extra blank lines
function Foo(): Boolean; // test
procedure Bar();
begin
end;
begin
end;
Hi,
I've just installed your lastest stable realease (Ver: 1.1.3.896 Build 2017.05.01) and seems "Jump to previous identifier" and "Jump to next indentifier" doesn't work properly in my C++ source code.
I wonder because "Enable background highlight Current Identifier at Cursor" works properly.
Btw, thank's for this great plugin guys!
with VerValue^ do
code formater removing space after ^
with VerValue^do
pls can you add readonly keyword to ignore list couse its used in almost every vlc component and every time i format unit it will change
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
to
property readonly: Boolean read GetReadOnly write SetReadOnly default False;
When i use Code Formatter on this unit i receive an error:
Format Error (15,1):Symbol Excepted.
Current: "Interface"
i tried the integrated CF inside XE3 and it works properly.
// VCL uses section
{$IFNDEF FMX}
unit Unit1;
{$INCLUDE vcl.inc}
interface
uses
adodb, activex, Classes, db, SysUtils, Math;
// FMX uses
{$ELSE FMX}
{$INCLUDE fmx.inc}
interface
uses
System.Classes, Data.db, System.SysUtils, System.Math, System.zlib;
{$ENDIF FMX}
type
TMyClass = class
end;
implementation
end.
begin
someBoolean := false;
input[0] := true;
input[65] := false;
for counter := 1 to 64 do
begin
input[counter] := false;
end;
for counter := 1 to 64 do
begin
output[counter] := false;
end;
input[0] := true;
end.
When trying to format this code I get an error.
like
uses
dialogs;
after reformat
uses
Dialogs;
it's valid language construct but not not used so much so it has very low priority
function Foo(): Boolean;
begin
if True then
else
Exit;
end;
after first format
function Foo(): Boolean;
begin
if True then
else
Exit;
end;
after second format (adds empty line)
function Foo(): Boolean;
begin
if True then
else
Exit;
end;
function Foo(Faa: Boolean): Boolean;
begin
if Faa then
Result := inherited
else
Result := False;
end;
Item.Export := 'foo'
after formatting
Item.export := 'foo';
~~it's not even reserved keyword in delphi ~~
http://docwiki.embarcadero.com/RADStudio/Seattle/en/Fundamental_Syntactic_Elements#Reserved_Words
A declarative, efficient, and flexible JavaScript library for building user interfaces.
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
The Web framework for perfectionists with deadlines.
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
We are working to build community through open source technology. NB: members must have two-factor auth.
Open source projects and samples from Microsoft.
Google ❤️ Open Source for everyone.
Alibaba Open Source for everyone
Data-Driven Documents codes.
China tencent open source team.