IsCharSetStr Function |
Unit
QESBPCSConvert
Declaration
Function IsCharSetStr(const S: string; const CharSet: TESBCharSet): Boolean;
Category
Extra String Handling RoutinesImplementation
function IsCharSetStr (const S: string; const CharSet: TESBCharSet): Boolean; var I: Integer; begin if S = '' then Result := False else begin Result := True; for I := 1 to Length (S) do begin if not (S [I] in CharSet) then begin Result := False; Break; end; end; end; End; |
|