Funktion optimieren

[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

Ich würde entweder die Anweisung hinten ans Then anhängen, oder das Then vor die Anweisung runterziehen, damit in 5 Jahren keiner auf die Idee kommt, da noch was hinzufrickeln.

Delphi-Quellcode:

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

@ws1976: nich böse sein, aber bei Deiner Schreibweise würde ich nie wissen, ob jetzt genügend ends da sind und wenn ja, ob sie an der richtigen Stelle sitzen.