1,900 Topics
 | |
 | Based on [url]http://astronomy.swin.edu.au/~pbourke/geometry/insidepoly/[/url] Converted to Delphi by Lord Soth |
| | --- Basic Datatypes --- --- Form Management --- --- Data Access --- --- Component model --- |
| | You can use any of the commented constants to perform the explained function. You might need to adjust the process privilege on NT based OSes. |
| | Assumes the presence of Memo1 on Form1. |
| | |
| | In case there are mote than one NIC (Network Interface Card) the coe gives the MAC of the first adapter. You can change the 0 on the line qoted below to take the MAC of other NICs if present. "Result := GetAdapterInfo(AdapterList.lana[0]) " |
| | This code disables font smoothing for a TLabel component. Can easily be converted for other VCL controls. Loren Soth |
| | This program searches the given txt file.And tells you how many there are. Just a reminder don't forget to put the searced txt file in C: or change it accordingly for more info or questions [email]Silver.Lost.Raven@gmail.com[/email] have fun!! |
| | It is a small two-in-one calculator that can work as a regular or RPN calculator, selected by a RPN checkbox. It has a four level stack similar to the HP 48 calculator made from four Tmemos. This code shows you how to make visual effects(RPN stack) from existing delphi components. … |
 | The code shows you how to create a window without a titlebar that can be dragged with the mouse. Set the FormStyle property to fsStayOnTop. The form contains a small 18 button calculator. When you create the form and calculator components, try to make it tiny, it is cute that … |
| | You can look at a selected file's date and time stamp and change it with this Delphi program. XP files need a little extra TLC, but it's taken care of too. |
| | A data stream is used to load a bitmap image and convert it to a jpeg image. The converted image is displayed and saved to a .jpg file. |
| | This Delphi procedure sends the text contained in a multiline editbox (memo in Delphi lingo) to a printer. The font and font size can be specified. |
| | Just to give you an idea what Delphi can do, here is a plot of the ever popular sin(x). I have put enough information into the code comments so you can build the form. The PaintBox Paint Event takes care of the plotting. |
| | This is Delphi code, just testing if there is some interest. |
| | This simple program will draw several randomly sized and colored lines on the screen. Makes a good screensaver!  |
| | This is Similar to the Previous Snippet, but it puts indivdual pixels of different colors randomly on the screen. Also makes a nice screensaver! |
| | Hi. I have wrote a basic program in delphi to perform calculations. The system the program was wrote on had the region set to English(United Kingdom). Upon testing the software, it will only perform calculations when the system is set in either English(United Kingdom) Or English(United States). If i set …  |
| | HI, Which changes I must to make in this program about (UDP Chat) which you may find on [url]http://delphi.about.com/library/weekly/aa101105a.htm[/url] To work on one computer simulate 2 clients, concerning with start two times on this program On same Computer I want to have two clients!! Is it possible? With Regard Janev … |
| | Dear Sir, I work in Delphi 6 a few years. Now I was beginning in Delphi network and I need some help maybe in source code Or advice for following: I have chat application and have two peer to peer clients, and I want to start one procedure (For example … |
| | Dear ALL, I have tried to demonstrate the card game problem by myself. The card game is come together with 52 cards. It has Spade, Heart, Club and Diamond - Spade > Heart > Club > Diamond. It has the integers and chars 2,3,4,5,6,7,8,9,10,J,Q,K,A. Could you tell me how can … |
| | I'm trying to find a low-cost or free Memo control that is normally closed like a combo-box or datetimepicker, and opens in a similar manner. I want to fit one more memo controls on a dialog, but I'm finding that presenting a standard TMemo of reasonable size just takes up … |
| | Dear Sir, I have made a question by myself. For example: I am playing the card game to my friend. The card has Spade, Heart, Club and Spade as usual but no number. How can I do if I only play five time and finally there is a record of … |
 | Hi ppl, I am having a problem with playing mp3's in my program. Let me explain, I am writing a program for my choire, I need to do it in a low base languege like pascal since the systems used are not great. My program is writen on exact timing … |
| | Hey Dudes and Dudets, The program I'm writing requires a string of 200 char, the max for a string is 255, so everything works fine, if I readln the text more than 80 charecters (wich is eol) then it truncates and goes to next line, cool, but if I put … |
| | Could you mind telling me what can I do for the following question? To write a skeleton program for the assignment. It should have a menu system with at least 5 options. The menu keeps repeating after each procedure is called. When one of the procedures is called just return … |
| | i have 1 combobox and i have auto Assign stringlist from advstringgrid its working ok . I need to activate filter sorting condition based on select string from combobox. hire is buton comand it work fine [code=delphi] advstringgrid1.Cells[9, 0] := 'some word '; CheckBox1Click(Sender); I need ,, ('some word';)" to … |
| | Dear All, Could you mind telling me how to code with the card game? It has 52 cards and it comes together with Spade, Heart, Club and Diamond. There are 2 people play together for 8 times, after it, we will get the result of it. Cheers, |
| | hi, whenever i try to write records into the file, only the first piece of records can be written. even some simple program like the following cant work properly. [ICODE]type thing=record name:string; end; var f:file of thing; data:array [1..2] of thing; i:integer; begin assign(f, 'infile.txt'); rewrite(f); data[1].name:='name'; data[2].name:='second'; for i:= …  |
| | Count Lines Of Text In Txt File hi i have text file ex. (sample.text) and i need to count lines in file and disply in memo . I have small examp but this not work any sugestion. [code] function linecount(filename: string): integer; var f: textfile; begin assignfile(f,filename); reset(f); result:= 0; … |
The End.