Delphi prüfe, ob das Zeichen im Bereich 'A' .. 'Z' und '0' .. '9' liegt

Ich muss überprüfen, ob eine Zeichenfolge nur Zeichen aus Bereichen enthält:'A'..'Z', 'a'..'z', '0'..'9', also habe ich diese Funktion geschrieben:

function GetValueTrat(aValue: string): string;
const
  number = [0 .. 9];
const
  letter = ['a' .. 'z', 'A' .. 'Z'];
var
  i: Integer;
begin

  for i := 1 to length(aValue) do
  begin
    if (not(StrToInt(aValue[i]) in number)) or (not(aValue[i] in letter)) then
      raise Exception.Create('Non valido');
  end;

  Result := aValue.Trim;
end;

aber wenn zum Beispiel,aValue = 'Hello' dasStrToInt Funktion löst bei mir eine Ausnahme aus.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage