| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Tue, 12 Aug 2025 06:52:00 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20080429004039
location: https://web.archive.org/web/20080429004039/https://www.daniweb.com/code/delphi.html
server-timing: captures_list;dur=0.551347, exclusion.robots;dur=0.019446, exclusion.robots.policy;dur=0.009980, esindex;dur=0.012167, cdx.remote;dur=1334.734639, LoadShardBlock;dur=550.462253, PetaboxLoader3.datanode;dur=115.782639, PetaboxLoader3.resolve;dur=160.988791
x-app-server: wwwb-app216
x-ts: 302
x-tr: 1912
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
set-cookie: wb-p-SERVER=wwwb-app216; path=/
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 200
server: nginx
date: Tue, 12 Aug 2025 06:52:01 GMT
content-type: text/html; charset=utf-8
x-archive-orig-date: Tue, 29 Apr 2008 00:40:38 GMT
x-archive-orig-server: Apache/2.2
x-archive-orig-x-powered-by: PHP/5.1.6
x-archive-orig-set-cookie: bblastvisit=1209422641; expires=Wed, 29-Apr-2009 00:40:38 GMT; path=/; domain=.daniweb.com
x-archive-orig-set-cookie: bblastactivity=0; expires=Wed, 29-Apr-2009 00:40:38 GMT; path=/; domain=.daniweb.com
x-archive-orig-cache-control: private
x-archive-orig-pragma: private
x-archive-orig-vary: Accept-Encoding,User-Agent
x-archive-orig-connection: close
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: utf-8
memento-datetime: Tue, 29 Apr 2008 00:40:39 GMT
link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Thu, 28 Apr 2005 05:29:23 GMT", ; rel="prev memento"; datetime="Tue, 22 Apr 2008 07:27:40 GMT", ; rel="memento"; datetime="Tue, 29 Apr 2008 00:40:39 GMT", ; rel="next memento"; datetime="Thu, 15 May 2008 14:58:20 GMT", ; rel="last memento"; datetime="Sat, 22 Aug 2009 09:50:57 GMT"
content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org
x-archive-src: 51_3_20080428233256_crawl101-c/51_3_20080429002956_crawl104.arc.gz
server-timing: captures_list;dur=0.609461, exclusion.robots;dur=0.022486, exclusion.robots.policy;dur=0.010381, esindex;dur=0.012003, cdx.remote;dur=171.164623, LoadShardBlock;dur=282.143403, PetaboxLoader3.datanode;dur=215.956816, load_resource;dur=264.205880, PetaboxLoader3.resolve;dur=192.546409
x-app-server: wwwb-app216
x-ts: 200
x-tr: 809
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
content-encoding: gzip
delphi Code Snippets 
 |  |  |  |  |  |  |
 |  |  |  |  |  |  |
delphi Syntax
•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 320,312 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,951 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Pascal and Delphi advertiser:
•
•
•
•
•
•
•
•
Based on https://astronomy.swin.edu.au/~pbourke/geometry/insidepoly/
Converted to Delphi by Lord Soth (View Snippet)
--- Basic Datatypes ---
--- Form Management ---
--- Data Access ---
--- Component model --- (View Snippet)
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. (View Snippet)
ShowDriveSerialNo shows it with ShowMessage GetDriveSerialNo returns a string. You don't need both. (View Snippet)
Note that the angle is in 1/10 of degrees. Any attempt to manipulate font.size or font.color will reset the angle to zero degrees. (View Snippet)
Assumes the presence of Memo1 on Form1. (View Snippet)
Works on W2K and above (View Snippet)
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) " (View Snippet)
This code disables font smoothing for a TLabel component. Can easily be converted for other VCL controls.
Loren Soth (View Snippet)
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. I have also... (View Snippet)
- Today's Posts
- Unanswered Threads
Related Features
DANIWEB FEATURE INDEX
ADVERTISEMENT
STATISTICS