IsCharSetStr Function
Returns True if the string is not empty and is only made of Characters in the specificed CharSet.

Unit
QESBPCSConvert

Declaration
Function IsCharSetStr(const S: string; const CharSet: TESBCharSet): Boolean;

Category
Extra String Handling Routines

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com