![]() Procedure BubbleSort(var ia:array of integer items: integer) įunction BubbleThread(parms:pointer) : LongInt far įunction QuickThread(parms:pointer) : LongInt far Use the TThread object and its Synchronize ![]() In program like this! Not unless you also MAIN.PAS (note: you can download a zip file of the complete program) unit main Don’t use Canvas property in program like this! Not unless you also use the TThread object and its Synchronize procedure!” The most glaring warning was the note at the top of the main form’s source code: “This example program shows how to set a thread’s priority. Examples of bad programming practices include using magic numbers, offset coordinate hacks, hard coded array size (Delphi now supports dynamic arrays), changing the caption for the input error message instead of a Message Box popup, etc. You’ll see that it contains many bad programming practices and hacks that I used on the flight to get the demo working. I eventually called it my “Dreaded Sorts” program when Charlie Calvert asked to include it in his Delphi 2 Unleased book. ![]() The original name of my on-the-fly demo was THSorts. The fact that David was able to do some serious coding on a West Coast shuttle flight shows that almost anything is possible if you set your mind to it!” The Original Dreaded Sorts Source Code (THSORTS.DPR) The code has some historical significance, as it was written on the flight to the Windows 95 launch in Seattle. “The program shown in Listing 7.9 was written by David Intersimone, a fellow Borland employee. The source code for the project can be found on the book’s CD. Note: the program still compiles and runs using the latest release of Delphi 11 Alexandria!Ĭharlie Calvert included my “Dreaded Sorts” program in his Delphi 2 Unleashed book (pages 240-243). So, for the duration of flight (approximately 2 hours) I hacked together a 32-bit VCL application using a pre-release version of Delphi. Multiple software vendors, including Borland, demonstrated their support for Win95 in tents on the lawn.ĭuring the flight I realized that I didn’t have a Delphi 2 demo that took full advantage of Win95’s 32-bit OS and other features. The launch took place on Thursday Augon the Microsoft campus. ![]() I created the code on the flight from San Jose to Seattle for the Microsoft Windows 95 launch. The worst “on-the-fly” (pun intended) Delphi demo I ever wrote was a thread based sort program (Dreaded Sorts).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |