Funktion optimieren

[xtZ]

Hi alzaimar,

Deine Methode ist zwar sehr schnell, aber sie funktioniert (bei mir) nicht.
Hab das "InitComparison" im Formcreate Ereignis eingefügt und die procedure ersetzt und es kommt immer als Result "False" raus.

//Edit:
Habs, du hattest ein "not" vor FraudChars vergessen.

[x000x]

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 
//..

[WS1976]

Hallo Dax,
dieser Ausdruck ist falsch. Die Bedingung zum Rausfliegen ist schon erfüllt wenn c ausserhalb '0' bis '9' liegt.
    if (c <= '0' and c >= '9') or (c <= 'A' and C >= 'F') or (c <= 'a' and c >= 'f') then Grüsse
Rainer

[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;

[WS1976]

Hallo,
so verstehts auch jeder:

Delphi-Quellcode:

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;

Grüsse
Rainer

[alzaimar]

Zitat von WS1976:

so verstehts auch jeder

Stimmt. Dank Deiner professionellen Hilfe ist aus meinem Amateurgefrickel endlich lesbarer Code geworden.

Wobei man ja geteilter Meinung über die Formatierung sein kann, gelle?

[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.

[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) }

[OldGrumpy]

Ein kleines Quentchen (JA, alte Rechtschreibung, das Wort hat wohl überhaupt nichts mit Quant zu tun ) kann man wohl noch einsparen indem man sich die Zuweisung "Result:=True" am Anfang spart und nur ausführt wenn die Länge passt, da ansonsten eh gleich wieder Result:=False gesetzt wird. Also ab damit in den Else-Zweig

[xaromz]

Hallo,

wenn wir schon dabei sind, Zuweisungen zu vermeiden, dann gleich richtig:

Delphi-Quellcode:

function TestFunc(const s: String): Boolean; Inline;
var
  i: Integer;
begin
  Result := False;
  if Length(s) = 32 then
  begin
    for i := 1 to 32 do
       if FraudChar [s[i]] then
         Exit;
    Result := True;
  end;
end;

Wobei es hier ja um Geschwindigkeit geht, und die Zuweisung von Result das eax-Register blockiert. Deshalb sollte Result eigentlich nur am Ende der Funktion gesetzt werden. Das darf aber jemand anderes machen...

Gruß
xaromz