delphi-xe6

问题 The goal is to achieve full usage of the available cores, in converting floats to strings in a single Delphi application. I think this problem applies to the general processing of string. Yet in my example I am specifically using the FloatToStr method. What I am doing (I've kept this very simple so there is little ambiguity around the implementation): Using Delphi XE6 Create thread objects which inherit from TThread, and start them. In the thread execute procedure it will convert a large

问题 When a delphi component installer like the Developer Express components runs, it registers html-help files into the Delphi IDE, using h2reg and an INI file, and some macro-magic. If I was an open source or commercial author of a Delphi component, and I wanted to ship an installer that registers html-help, how would I do it? In very very old versions of Delphi (pre-2007) there was a tool for registering extra winhelp stuff. But in recent years, while many large vendors (like developer express)

问题 This question already has answers here : DecimalSeparator in SysUtils and System.SysUtils (2 answers) Closed 5 years ago . I have a program that was created in Delphi 5 and the program still runs nearly perfect on Win7 and Win8. However, when trying to run this code in XE6 (trial version) I get two errors that I am having trouble fixing. Errors are with 'DateSeparator' and 'LongTimeFormat' with each having the error "undeclared identifier" The code segment is as follows: function

问题 This question already has answers here : DecimalSeparator in SysUtils and System.SysUtils (2 answers) Closed 5 years ago . I have a program that was created in Delphi 5 and the program still runs nearly perfect on Win7 and Win8. However, when trying to run this code in XE6 (trial version) I get two errors that I am having trouble fixing. Errors are with 'DateSeparator' and 'LongTimeFormat' with each having the error "undeclared identifier" The code segment is as follows: function

问题 I have recently reformatted my computer running Windows 8.1 and re-installed Delphi XE6 which was working fine prior to formatting the computer. Whenever i open up a new project and hit F9 (Windows 64 as target platform) i receive the following error: Debugger Assertion Failure: "lastErr == WSAEINTR" in ..\win32src\wmcipc.cpp at line 294 Fatal error starting debugger kernel: 'Invalid debugger request'. Please save your work and restart RAD Studio XE6 I downloaded XE7 trial and ran into the

问题 How i can destroy form, I want: creatr Form1(start application), create Form 2, destroy Form1, working with form2, then create form 3, destroy form2. but I not know how to destroy form. If i call: procedure TFPressStartScreen.btn1Click(Sender: TObject); begin MainScreen.FMainScreen := MainScreen.TFMainScreen.Create(Application); MainScreen.FMainScreen.Show; DisposeOf; end; FPressStartScreen - 1 form, FMainScreen - 2 form, i create 2 form and need destroy 1. but i get access violation. 来源：

问题 I have a TwebBrowser on a form, of which I need to take a Screenshot. Some may think Isn't this a dublicate. But it's not, because the solutions in the orter answers doesn't work, thay all just gives med a black screen. Så I try to get my pixels from DC(0) First some source code: Place a TWebBrowser and a TButton on a form, and add the following code to a OnCreate Event: procedure TForm1.FormCreate(Sender: TObject); var Doc: Variant; begin Width := 1350; Height := 860; with WebBrowser1 do

问题 I've code in Delphi XE2 who work perfectly. But in Delphi XE6 it doesn't work. I create a Tform with the property AutoSize to true. I use a TPanel align alTop with a button for create some another panels. procedure TForm2.Button1Click(Sender: TObject); var t :TPanel; begin t := TPanel.Create(self); t.Parent := self; t.Align := alTop; end; The form doesn't auto size. If I want to see all my panels I have to move the form (or try to resize, ....). Have you any idea's ? 回答1: This is indeed a

问题 I use memtables to wire enumerated type with comboboxes using LiveBinding. However I have a lot of them and they way I am doing is way too bad (copy/paste) For example, I have the following enumeration: TEnumResourceType = (trtApp, trtTab, trtSection, trtField, trtCommand, trtOther); and for that I created a function to give the string equivalent: function EnumResourceTypeToStr(AEnum: TNaharEnumResourceType): string; begin case AEnum of trtApp : result := 'Aplicação'; trtTab : result :=

问题 I have simple form TForm1 with 2 panels. First with Align := alLeft and second with Align := alClient and empty frame TFrame1 . When i add following procedures to the form, everything works without problems. procedure TForm1.FormCreate(Sender: TObject); var lFrame1, lFrame2 : TFrame1; begin lFrame1 := TFrame1.Create(nil); lFrame1.Parent := pnl1; lFrame1.Align := alClient; lFrame2 := TFrame1.Create(nil); lFrame2.Parent := pnl2; lFrame2.Align := alClient; end; procedure TForm1.FormResize(Sender