<!--CodeS-->
function IsAlphaNumeric(const Source: string): Boolean;
var
Index: Integer;
begin
Result := False;
if Source <> '' then
begin
for Index := 1 to Length(Source) do
begin
if not IsCharAlphaNumeric(Source[Index]) then
Exit;
end;
Result := True;
end;
end;
<!--CodeE-->
<!--CodeS-->
function IsAlphaNumeric(const Source: string): Boolean;
var
Index: Integer;
begin
Result := False;
if Source <> '' then
begin
for Index := 1 to Length(Source) do
begin
if not IsCharAlphaNumeric(Source[Index]) then
Exit;
end;
Result := True;
end;
end;
<!--CodeE-->