用Delphi编写一个小程序

以Delphi7为例

1、运行Delphi

默认会创建一个名为Project1的Application，并且有一个默认的主窗口Form1

2、从控件面板的Standard页中拖一个按钮控历升件弯改到Form1上，会默认命名为埋烂判Button1

3、双击Button1，写上

ShowMessage('hello,world!')

4、点击Debug工具栏上的Run按钮，或按F9功能键

5、点击Button1按钮 代码如下：unit

Unit1interfaceuses

Windows,

Messages,

SysUtils,

Variants,

Classes,

Graphics,

Controls,

Forms,

Dialogs,

StdCtrlstype

TForm1

=

class(TForm)

Button1:

TButton

procedure

Button1Click(Sender:

TObject)

private

{

Private

declarations

}

public

{

Public

declarations

}

endvar

Form1:

TForm1implementation{$R

*.dfm}procedure

TForm1.Button1Click(Sender:

TObject)

begin

ShowMessage('Hello,world!')

endend.

推荐滑键站点：

DELPHI盒子，www.delphibox.com

Delphi园地，www.delphifans.com

大富翁编程网站，www.delphibbs.com

-

推荐书籍：李维的书

-

这些都是玩delphi必答码接触的东西，很高兴你能学delphi，delphi7.0是Win32平台下快速开发应信举巧用程序的强大平台，愿你学有所成！

-

学习Delphi要养成面向对象的思想，善于研究和使用组件、控件技术

//加个opendialog,代码不难,应该看得明白带拆银

var

p :PChar

i,n :Integer

list :TStringList

str :string

begin

if opendialog1.execute then

begin

list := TStringList.Create

list.LoadFromFile(opendialog1.FileName)

str := list.Text

p := PChar(str)

while p^ <>蠢宴 #0 do

begin

case p^ of

'0'..'9':

else p^ := #32

end

Inc(p)

end

list.clear

list.Delimiter := #32

list.DelimitedText := str

n := 0

str := ''御弊

for i := 0 to list.Count - 1 do

begin

n := n+strtoint(list.Strings[i])

if str = '' then

str := list.Strings[i]

else

str := str+'+'+list.Strings[i]

end

list.Free

showmessage(inttostr(n)+'='+str)

end

end

---