Funktion optimieren

[alzaimar]

Hi xtZ,

Hier nochmal eine Zusammenfassung (Fehler bereinigt, Optimierungen der Anderen eingebaut):

Delphi-Quellcode:

Var
  FraudChars : Array [Char] Of Boolean;

Procedure InitComparison;
Var
  c : Char;

Begin
  For c:=low(Char) To High (Char) Do FraudChars[c] := True;
  for c:='0' to '9' do FraudChars[c] := False;
  for c:='a' to 'f' do FraudChars[c] := False;
  for c:='A' to 'F' do FraudChars[c] := False;
End;

function TestFunc(const s: String): Boolean; Inline;
var
  i : Integer;
  
begin
  Result := True;
  if Length(s) <> 32 then
    Result := False
  else for i := 1 to 32 do
    If FraudChar [s[i]] Then Begin
      Result := False;
      Break;
    end;
  end;
end;