Isalpha, IsNum, IsString als eine Funktion

[Hobby-Programmierer]

Hallo ...,
ich habe zwar noch nie ne Konsolenanwendung geschrieben, aber würde sich hier nicht eine Case Abfrage anbieten?

Delphi-Quellcode:

Function CheckStr(Str:string):TStringTyp;
var i:Integer;
begin
  Result:= [];
  Str:= UpperCase(Str);
  if Str <> '' then
    For i:= 1 to Length(Str) do Begin
      Case Str[i] of
        '0'..'9'            : Include(Result, Ziffer);
       {'a'..'z',} 'A'..'Z' : Include(Result, Zeichen);
       else                   Include(Result, Andere);
      end;

      If Result = [Ziffer, Zeichen, Andere] Then Break;
    end;
End;