请用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

貌似这是个比较简单，简述下 *** 作：

1、打开 delphi ，进入 IDE，新建一个败李 vcl 缺型工程。

2、在窗体上再添加一个按钮伏枯猜，编写响应代码：

ShowMessage('Hello World！')

delphi 有个控件 名字叫mediaplayer 在system选项卡中 那个就是专门用来播放MP3或者乱袭电影文件的

大概方法是这样的 mediaplayer 简称mp

procedure TForm1.btn1Click(Sender: TObject)

begin

mp1.Close

if opendiag.execture then

begin

mp1.FileName:=opendiag.filename

end

mp1.Open

mp1.Play

end 还有希望你别直接复制我的代码 去找找资料 理解意思才是关键。这碰腔代码都是基础中的基础，如果你只是想混一混的吧 当哗吵兄我没说

---