var
inputname,outputname:Integer;
begin
inputname:=length(memo1.Lines.Text);
outputname:=length(memo2.lines.Text);
Label1.caption:=(inputname/outputname)*100+'%';//这行出错,请问如此功能如何实现???????????????????????
end
inputname,outputname:Integer;
begin
inputname:=length(memo1.Lines.Text);
outputname:=length(memo2.lines.Text);
Label1.caption:=(inputname/outputname)*100+'%';//这行出错,请问如此功能如何实现???????????????????????
end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货