if not (AnsiChar(eingabe[i]) in ['0'..'9','A'..'F','a'..'f']) then
Davon würde ich dir schnell mal abraten.
Delphi-Quellcode:
var S: String;
S := '4';
if AnsiChar(S[1]) in ['0'..'9'] then
ShowMessage('jupp ^^');
S := #$1234;
if AnsiChar(S[1]) in ['0'..'9'] then
ShowMessage('hä? o.O');
S := 'A';
if AnsiChar(S[1]) in ['A'] then
ShowMessage('jupp ^^');
S := '굁';
if AnsiChar(S[1]) in ['A'] then
ShowMessage('hä? o.O');
// aka
S := #$0041;
if AnsiChar(S[1]) in [#$41] then
ShowMessage('jupp ^^');
S := #$AD41;
if AnsiChar(S[1]) in [#$41] then
ShowMessage('hä? o.O');
Den Hinweis, den Delphi dir, bei Verwendung von IN, gibt, sollte man beachten.
(es sei denn, man prüft auch noch, ob dieses Char sich wirklich in einem passenden "
ANSI"-bereich befindet)
PS: entweder "erfolgreich" oder Break ... Beides ist hier etwas übertrieben/nutzlos.