【BarQuality】

1. Input: Len(Numeric);
   
2. Variables: var0(0), var1(0);
   
3. 
   
4. var0 = 0;
   
5. 
   
6. If Len > 1 Then Begin
   
7.         For var1 = 0 To Len - 1 Begin
   
8.                 Condition1 = QualityBar[var1];
   
9.                 If Condition1 = True Then
   
10.                         var0 = var0 + 1;
    
11.                 Condition1 = False;
    
12.         End;
    
13. 
    
14.         BarQuality = (MaxList(1, var0) / Len) * 100;
    
15. End
    
16. Else
    
17.         BarQuality = 0;

复制代码