function IsAlpha(const sText: String): Boolean;
var i: Integer;
begin
Result := True;
for i := 1 to Length(sText) do
if Not (sText[i] in ['A'..'Z', 'a'..'z']) then
Result := False;
end;
function IsNumeric(const sText: String): Boolean;
var i: Integer;
begin
Result := True;
for i := 1 to Length(sText) do
if Not (sText[i] in ['0'..'9']) then
Result := False;
end;
function IsAlpha(const sText: String): Boolean;
var i: Integer;
begin
Result := True;
for i := 1 to Length(sText) do
if Not (sText[i] in ['A'..'Z', 'a'..'z']) then
Result := False;
end;
function IsNumeric(const sText: String): Boolean;
var i: Integer;
begin
Result := True;
for i := 1 to Length(sText) do
if Not (sText[i] in ['0'..'9']) then
Result := False;
end;