楚
楚辞
Unregistered / Unconfirmed
GUEST, unregistred user!
从一个文本文件中把所有数字累加起来，然后显示出结果。文本文件内容如下所示：华伦巴菲特-世界首富的选股法则：股东权益报酬率（1季及2年平均）均大于3.75%现金流量成长率(1季及2年平均)均大于5%价格/净值比小于2毛利率（1季及2年平均）均大于15%本益比小于20结果=1+2+3+75+1+2+5+2+1+2+15+20 var p 
Char; 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 //p^代表什么...begin case p^ of '0'..'9': ; else p^ := #32; //#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); if str = '' then str := list.Strings else str := str+'+'+list.Strings; end; list.Free; showmessage(inttostr
+'='+str); end;
Char; 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 //p^代表什么...begin case p^ of '0'..'9': ; else p^ := #32; //#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); if str = '' then str := list.Strings else str := str+'+'+list.Strings; end; list.Free; showmessage(inttostr+'='+str); end;
][8D][
!][