Funktion optimieren

[RavenIV]

Zitat von Sidorion:

Richtig, alzimar. Das Einzige, was man vielleicht noch anders schreiben kann/möchte/sollte/haben/sein wäre diese Ecke:

Delphi-Quellcode:

  if Length(s) <> 32 then
    Result := False

Wenn dann aber schon so:

Delphi-Quellcode:

if Length(s) <> 32 then
begin
  Result := False;
end { if Length(s) }
else
begin
  for i := 1 to 32 do
  begin
    if FraudChar [s[i]] then
    Begin
      Result := False;
      Break;
    end; { if FraudChar }
  end; { for i }
end; { else if Length(s) }