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; |
|