1
分析Edit1的内容,判断从几到几
2
var start,finish:char;
c:char;
n:integer;n :=0;
for c:=start to finish do
begin
n := n+ Table.Fields[ord(c)-ord('A')].Value;
end;
分析Edit1的内容,判断从几到几
2
var start,finish:char;
c:char;
n:integer;n :=0;
for c:=start to finish do
begin
n := n+ Table.Fields[ord(c)-ord('A')].Value;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货