Delphi

问题 I used to use Pythia to obfuscate my D6 program. But it seems Pythia does not work anymore with my D2007. Here's the link of Pythia (no update since early 2007) : http://www.the-interweb.com/serendipity/index.php?/archives/86-Pythia-1.1.html From link above, here's what I want to achieve 回答1: Over the course of time, a lot of new language features were added. Since there is no formal grammar available, it is very hard for tool vendors (including Embarcadero themselves) to keep their Delphi

问题 I used to use Pythia to obfuscate my D6 program. But it seems Pythia does not work anymore with my D2007. Here's the link of Pythia (no update since early 2007) : http://www.the-interweb.com/serendipity/index.php?/archives/86-Pythia-1.1.html From link above, here's what I want to achieve 回答1: Over the course of time, a lot of new language features were added. Since there is no formal grammar available, it is very hard for tool vendors (including Embarcadero themselves) to keep their Delphi

问题 I used to use Pythia to obfuscate my D6 program. But it seems Pythia does not work anymore with my D2007. Here's the link of Pythia (no update since early 2007) : http://www.the-interweb.com/serendipity/index.php?/archives/86-Pythia-1.1.html From link above, here's what I want to achieve 回答1: Over the course of time, a lot of new language features were added. Since there is no formal grammar available, it is very hard for tool vendors (including Embarcadero themselves) to keep their Delphi

问题 Exists in Delphi something like the Java or C# StringBuilder? Or Delphi does not need StringBuilder and s := s + 'some string'; is good expression (mainly in for, while loops). 回答1: Yes, Delphi offers TStringBuilder (since version 2009): procedure TestStringBuilder; var I: Integer; StringBuilder: TStringBuilder; begin StringBuilder := TStringBuilder.Create; try for I := 1 to 10 do begin StringBuilder.Append('a string '); StringBuilder.Append(66); //add an integer StringBuilder.Append

问题 I am trying to make a countdown timer, the idea is to set the time in text edit property and after i click set timer(button), that time to be sent to Label, which will then start the countdown to 0. I have gotten to this part, but i cant figure out a way to make seconds countdown, If any of you guys can help I would appreciate it. I tried this from an example I found online but it didnt work because this is Firemonkey application. dec(TotalTime); {decrement the total time counter} // Timer

问题 I want to create my own custom control. Let's say I want to initialize its graphic properties. Obviously I cannot do that in Create because a canvas/handle is not YET allocated. The same if my custom control contains a subcomponent (and I also set its visual properties). There are quite several places on SO that discuss the creation of a custom control. They don't really agree on it. So, I did this test that shows the creation order. The conclusion is: Dropping control on a form: Create

问题 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

问题 I'm using below code to file copy operataion in windows seven,but it doesn't work and there is no any error while running or debugging,When the application goes to calling the CoGetObject it'll crash and can't returning any Hresult error,I just know the error occur in this line -> result := CoGetObject(pWideString(MonikerName), @BindOpts, ShlObj.IFileOperation, @iFileOperation); anyone can find any problem in this code? ` type PBindOpts3 = ^TBindOpts3; {$EXTERNALSYM tagBIND_OPTS3} tagBIND

问题 I'm using below code to file copy operataion in windows seven,but it doesn't work and there is no any error while running or debugging,When the application goes to calling the CoGetObject it'll crash and can't returning any Hresult error,I just know the error occur in this line -> result := CoGetObject(pWideString(MonikerName), @BindOpts, ShlObj.IFileOperation, @iFileOperation); anyone can find any problem in this code? ` type PBindOpts3 = ^TBindOpts3; {$EXTERNALSYM tagBIND_OPTS3} tagBIND

问题 I'm using below code to file copy operataion in windows seven,but it doesn't work and there is no any error while running or debugging,When the application goes to calling the CoGetObject it'll crash and can't returning any Hresult error,I just know the error occur in this line -> result := CoGetObject(pWideString(MonikerName), @BindOpts, ShlObj.IFileOperation, @iFileOperation); anyone can find any problem in this code? ` type PBindOpts3 = ^TBindOpts3; {$EXTERNALSYM tagBIND_OPTS3} tagBIND