function TForm1.busload(start,stop:integer):double; var i,j:integer; time:double; begin time:=0; for i:=start to stop do begin j:=(Length(matrix[i,4])+1) div 3; time:=time+Txtime(j,0.004); end; busload:=(time/1000)*100*100; //1000ms(1s)之内的负载率 end; matrix[i,4]是一个全局数组,已经被赋值。
function busload(start,stop:integer):double; var i,j:integer; time:double; begin time:=0; for i:=start to stop do begin j:=(Length('wwwwwwwww')+1) div 3; // time:=time+Txtime(j,0.004); end; busload:=(time/1000)*100*100; //1000ms(1s)之内的负载率 end;此段代码编译正常!!!!!!
var i,j:integer;
time:double;
begin
time:=0;
for i:=start to stop do
begin
j:=(Length(matrix[i,4])+1) div 3;
time:=time+Txtime(j,0.004);
end;
busload:=(time/1000)*100*100; //1000ms(1s)之内的负载率
end;
matrix[i,4]是一个全局数组,已经被赋值。
就算我直接写length('sissss')还是这样,这是为什么呢 ?有没有人遇到过??
var i,j:integer;
time:double;
begin
time:=0;
for i:=start to stop do
begin
j:=(Length('wwwwwwwww')+1) div 3;
// time:=time+Txtime(j,0.004);
end;
busload:=(time/1000)*100*100; //1000ms(1s)之内的负载率
end;此段代码编译正常!!!!!!