| ValueMatch Function | 
Unit
QESBPCSConvert
Declaration
Function ValueMatch(const ValuesStr, Value: string; const Separator: Char = ';'): Boolean;
Description
Thus 'Mon;Tue;Wed' has 'Mon' as the 1st string, 'Tue' as the 2nd string, etc. Values are compared without case sensitivity.
| Parameters | 
| ValuesStr | String containing Values separated by given Separator. | 
| Separator | Character used to separate values, defaults to ';'. | 
Category
Extra String Handling RoutinesImplementation
 
| function ValueMatch (const ValuesStr, Value: string;
     const Separator: Char = ';'): Boolean;
var
     P: Integer;
begin
     Result := False;
     P := 1;
     while P <= Length (ValuesStr) do
     begin
          if AnsiCompareText (ExtractValue (ValuesStr, P, Separator), Value) = 0 then
          begin
               Result := True;
               Break;
          end;
     end;
End; | 
|  |