Zeichenkette Prüfen ob gültige Zahl ohne Umwandeln?

[alzaimar]

So wäre es mit einem Automaten (Es erkennt die Floatingpoint Notation, Fixed Point und Integer mit beliebig vielen Vorzeichen), also z.B.:
"+-+-+12345,3456453345345E-9123123123"

Delphi-Quellcode:

Function IsAnyNumber(Const aValue: String): Boolean;
Const
  map: Array[0..5, 1..6] Of Integer = (
  {0}(1, 2, -1, 0, -1, -1),
  {1}(1, 2, 4, -1, -1, 9),
  {2}(3, -1, -1, -1, -1, 9),
  {3}(3, -1, 4, 0, -1, 9),
  {4}(5, -1, -1, 4, -1, -1),
  {5}(5, -1, -1, -1, -1, 9)
    );

Var
  State, cChar, i: Integer;

Begin
  State := 0;
  Result := False;
  For i := 1 To Length(aValue) Do Begin
    Case aValue[i] Of
      '0'..'9': cChar := 1;
      ',', '.': cChar := 2;
      'E', 'e': cChar := 3;
      '-', '+': cChar := 4;
      Else      cChar := 5;
    End;
    State := map[State, cChar];
    If State = -1 Then Exit;
  End;
  If State <> 9 Then 
    State := map[State, 6]; // Zustand bei Erkennen des Terminalsymbols

  Result := (State = 9)
End;

[Popov]

Zitat von alzaimar:

Function IsAnyNumber(Const aValue: String): Boolean;

Schöne Funktion, nur sollte der Name mehr nach Float oder Realnumber klingen, denn Integer ist auch eine Nummer und kennt keine ".", ",", "E" in der Zahl.

Ansonsten ok.

[alzaimar]

Popov, die Funktion erkennt auch Ganzzahlen, eben alle Zahlen. Äh.. oder... eh.. Jedenfalls hat sie das eben noch.

[LoCrux]

@himitsu

Zitat von himitsu:

@LoCrux:
es stimmt schon das wenn Bit 6 nicht gesetzt ist daß es eine Zahl sein könnte, aber es muß dennoch keine Zahl sein (ih weiße da nur mal auf die ganzen Steuerzeichen #0..#31 hin),
also einfach nur Bit 6 zu Prüfen reicht nicht aus.

schaust DU...

Zitat von LoCrux:

Ich definere einfach mal, dass (wie in deinem Beispiel) in dem "Zahlenstring" NUR ZIFFERN UND BUCHSTABEN
aber keine Sonderzeichen Vorkommen (<30h);
+ und - werden ignoriert, da als Vorzeichen immer an erster Position.;

@alzaimar

Coole Function.

[Amateurprofi]

Na, dann will ich auch noch mal was beisteuern.
Dürfte um ca. 25 % schneller sein als optimale Pascal-Lösungen

Als gültig werden Strings erkannt, die
a) nur Ziffern enthalten, aber mindestens eine Ziffer
b) als erstes Zeichen ein Vorzeichen haben, dem mindestens eine Ziffer folgt

Delphi-Quellcode:

FUNCTION IsSignedInteger(s:string):boolean;
asm
            test  eax,eax
            je    @Exit       // s=NIL
            cmp [eax-4],0 // geändert auf Wunsch des Erstellers 
            je    @Fail       // s hat Länge 0
            mov   edx,eax
            mov   ax,[edx]    // AL=erstes Zeichen, AH=zweites Zeichen
            add   edx,2
            cmp   al,'-'
            je    @HasSign
            cmp   al,'+'
            jne   @NoSign
@HasSign:   add   ah,$D0
            sub   ah,$0A
            jb    @Loop       // Nach Sign folgt Ziffer
@Fail:      xor   eax,eax     // Fehler
            jmp   @Exit
@NoSign:    add   al,$D0
            sub   al,$0A
            jae   @Fail       // erstes Zeichen nicht '0'..'9','-','+'
            jmp   @Entry
@Loop:      mov   ax,[edx]
            add   edx,2
            add   al,$D0
            sub   al,$0A
            jae   @CheckEnd   // nicht '0'..'9'
@Entry:     add   ah,$D0
            sub   ah,$0A
            jb    @Loop       // ist '0'..'9'
            sub   ah,$D0-$0A
            je    @True       // Ist 0 Byte (Ende vom String)
@CheckEnd:  sub   al,$D0-$0A
@True:      sete  al
@Exit:
end;

[edit=MrSpock]3. ASM Befehl auf Wunsch des Erstellers geändert. Mfg, MrSpock[/edit]

[himitsu]

@LoCrux: OK, wenn wirklich nur Zahlen und Buchstaben drin sind, dann sag ich nichts dagegen

[LoCrux]

@Amateurprofi:

SPEEDFREAK