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.