Isalpha, IsNum, IsString als eine Funktion

[himitsu]

betüglich deiner schnellen Version mit globalen Varianten.

im Vergleich etwas mit lokalen Variablen:

[Go2EITS]

@Himitsu: Dein Codevorschlag ist hervorragend!
Und wenn ich die Constanten und Variablen global deklariere, dann wird die Funktion tatsächlich langsamer. Ich habe nur noch ca. 10 ms mit meinen kleinen Änderungen rausholen können!
Code von Himitsu:

Delphi-Quellcode:

Function CheckStr2(Const S: String): TStringTyp;
  Const ZiffernSet = ['0'..'9'];
    ZeichenSet     = ['a'..'z','A'..'Z'];

  Var i: Integer;
    ZiffernFlag, ZeichenFlag: Boolean;

  Begin
    ZiffernFlag := False;
    ZeichenFlag := False;
    For i := 1 to Length(S) do Begin
      If S[i] in ZiffernSet Then ZiffernFlag := True
      Else If S[i] in ZeichenSet Then ZeichenFlag := True;
      If Zeichenflag and ZiffernFlag Then Break;
    End;
    If ZiffernFlag Then Begin
      If ZeichenFlag Then Result := stAlphaNum
      Else Result := stZiffer;
    End Else If ZeichenFlag Then Result := stZeichen
    Else Result := stLeer;
  End;

Code von Himitsu, den ich ein wenig abgeändert habe, um ich würde sagen wirklich vernachlässigbare 10 ms auf 10 Mio. Durchläufen. Die Details habe ich kommentiert.

Delphi-Quellcode:

Function CheckStrTest(Const S: String): TStringTyp;
Const ZiffernSet = ['0'..'9'];
    ZeichenSet   = ['a'..'z','A'..'Z'];
Var i: Integer;
    ZiffernFlag, ZeichenFlag: Boolean;
  Begin
    ZiffernFlag := False;
    ZeichenFlag := False;
    For i := 1 to Length(S) do Begin
      If S[i] in ZiffernSet Then ZiffernFlag := True
      Else If S[i] in ZeichenSet Then ZeichenFlag := True;
      // Hier bin ich eine Idee schneller draußen
      If Zeichenflag and ZiffernFlag Then begin Result:=stAlphaNum;Exit;end;;
    End;
    // und hier spare ich mir ein If
    if ZiffernFlag then Result := stZiffer
    else If ZeichenFlag Then Result := stZeichen
    Else Result := stLeer;
  End;

Was da an Zeit mit If ... else if gespart wurde,...enorm.

[Go2EITS]

Toms ist aufgefallen, dass etwas fehlt, daher: Code Käse und gelöscht. Danke toms!

[toms]

@Go2EITS: Welchen Wert hat i bei If S[i] in ZiffernSet Then