Thema: Delphi Funktion optimieren

Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#12

Re: Funktion optimieren

  Alt 4. Okt 2007, 01:10
Moin moin,
die Zuweisung zu L kann doch weggelassen werden...
Delphi-Quellcode:
//..
  if Length(s) <> 32 then
  begin
    Result := False;
    Exit;
  end;
  for i := 1 to 32 do
//..
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat