delphi的源代码叫什么文件

delphi的源代码文件，通常以 .pas 为文件扩展名。

如果是 windows 程序，一般还会包含一个同名的窗体文件，以 .dfm 为扩展名。

如下图示例：

朋友，想实现这些功能，任何一种通用语言都可以办到。甚至使用具有宏编程功能的一些办公软件也可以。

我建议你使用Delphi或VB。其开发工具可以使任何初学者都快速上手。并且在显示上可以优雅地实现。

另外，单就此软件而言，恐怕将不可避免地使用数据库。作为个人使用，可采用最简单的Access桌面数据库。

我想你的设计意图大概是，针对历史数据进行分析和汇总，并给出最接近中奖的一组数字。所以，除掌握开发语言外，你还必须对用于 *** 作数据库的SQL语言有一定了解。

总结：学习Delphi，Access，SQL。此三种工具在书店有大量相关书籍可供购入。最好找以“Delphi数据库编程”为核心的书。其中将会提供翔实的例程。1.编程语言和 *** 作系统：Visual c++ (vc) visual baseic vb visual foxpro delphi c++ builder powerbuidervc.net vb.netAsp.net java；Windows32 win95,win98,win2000,windows me,windows2000,windowsxp,windowNT/winntlinux,PDA/windowsCE/smartphone手机/arm/ppc2000/ppc2002pocket pc2002, ce.net掌上电脑，嵌入式设备，移动设备；

2.控件及平台：二维绘图控件、2d/3D图形控件、三维图形控件、矢量图形控件、矢量绘图控件、图形中间件、图形插件、图形浏览控件,CAD插件、CAD控件、矢量控件、GIS控件、GIS图形控件,GIS插件,图形软件开发源码,测绘控件,视频CAD，图形算法库、几何算法库、winCE图形控件 PDA图形控件,源码、免费下载、软件试用、编程资源、矢量图形软件开发,算法源码，c++源码,SmartPhone,CAD软件开发,GIS软件开发，Linux图形平台，CAD自主平台,CAD开发平台，GIS开发平台，图形软件开发引擎,IE图形控件,几何算法控件；

3.文件格式解析、文件格式转换、图形文件浏览、BMP、GIF、ICO、TGA、PCX、WBMP、WMF、EMF,JPEG、PNG、MNG、TIFF、JBIG、PNM,PPM,PGM、RAS，DXF ,DWF(4.0-6.0)、DWG(2.5-2005) 、IGS, MIF,PLT,PRN,HPGL/HPGL2、DGN(8.0), SHP, IGSAT, PS/IGES, PS/STEP, PS/VDA-FS, PS/PRO ENGINEER, PS/ACIS, PS/BOBY SHOP，QCD，SHX字体、TTF字体、SHP字体，LIN,GBR，pat，AutoCAD字体线型，mdf，dwg浏览，SVG格式；dwg2005,dwgr14,autocad2005,r14,r15,r18,2006,,GERBER RS-274X

4.资源下载：SHX字体下载，TTF字体，SHP字体，图库下载，建筑图库，电气图库，园林图库下载，dwf2dxf.exe，dwg2dxf.exe，hpgl2cad.exe，askern.dll,asocx.ocx,depend.exe,winrar.exe,winzip.exe,zip,rar,mfc42.dll

5.算法总汇：求交算法，相切，裁减，直线、圆、弧、椭圆、样条曲线、函数曲线、曲面、三维消隐、面积算法、长度计算、体积计算；点云，不规则体、三角形、找最小区域、查找最大区域、路径查找、相量、向量、矢量、单位向量、矩阵、矩阵变换，交点、切点、圆心等、解析几何、线性代数,贝赛尔曲线算法；坐标变换；

6. 图形技术汇总：Unigraphics,pro/engineer,i-deas,pkpm,3ds,3dmax,mastercam9.0,dwfsdk toolkit,PRO/E,SOLiDWORKS,AUTOCAD,Intellicad，VisualCASE,SolidEdge,UG,caxa,MDA,catia,powercad，opengl，heidi，acis，ug，microstation，opendwg，opendgn，Freetype，OpenSceneGraph，brlcad，mapinfo，arcinfo，hoops，zlib，solidedge，mdt，gdi++,directX,directdraw,directshow,计算机图形学，OdDbDatabasePtr，DWGdirect使用；

7. PDM/MRPII/ERP/OA等行业：图形文件浏览、图档管理、审图、批注图纸、权限管理、web图档管理、xml/rml批注文件 兼容Volo View Express和AutoCAD格式；数字签名等；redline,rml红线批注文件,产品数据管理,电子图纸管理

控件 button1 开始计时按钮

button2 置零按钮

edit1和timer1结合，显示从比赛开始到现在的时间，时刻变化

timer1 用来计时，interval=10

memo1用来存储每个人的时间的记录

unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls

type

TForm1 = class(TForm)

Memo1: TMemo

Button1: TButton

Edit1: TEdit

Button2: TButton

Timer1: TTimer

procedure Button1Click(Sender: TObject)

procedure Button2Click(Sender: TObject)

procedure FormShow(Sender: TObject)

procedure Timer1Timer(Sender: TObject)

private

{ Private declarations }

public

{ Public declarations }

end

var

Form1: TForm1

i:integer

time:tdatetime

s:string

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)//计时开始按钮

begin

if i=0 then

begin

i:=1

time:=now

s:='00:00:00 000'

timer1.Enabled :=true

exit

end

s:= FormatDateTime('hh:nn:ss:zzz',now-time)

memo1.Lines.Add(s)

end

procedure TForm1.Button2Click(Sender: TObject)//置零按钮

begin

timer1.Enabled :=false

s:='00:00:00 000'

memo1.Clear

edit1.text:='00:00:00 000'

i:=0//判断是否是开始计时的标志 i=1 是在计时，i=0 没有开始计时

end

procedure TForm1.FormShow(Sender: TObject)

begin

i:=0

edit1.text:='00:00:00 000'

end

procedure TForm1.Timer1Timer(Sender: TObject)

begin

edit1.Text:=FormatDateTime('hh:nn:ss:zzz',now-time)

end

end.

测试通过，和秒表的功能一样！

---