【BarQuality】
[code]Input: Len(Numeric);Variables: var0(0), var1(0);
var0 = 0;
If Len > 1 Then Begin
For var1 = 0 To Len - 1 Begin
Condition1 = QualityBar[var1];
If Condition1 = True Then
var0 = var0 + 1;
Condition1 = False;
End;
BarQuality = (MaxList(1, var0) / Len) * 100;
End
Else
BarQuality = 0;
[/code]
页:
[1]