Firebird: Charfeld mit Inhalten nummerisch sortieren

[mschaefer]

Moin Tom,

Danke schonmal. Sonntags geht das alles etwas langsamer. Aber hier kommen erstmal die
Rohprozeduren für die IsNumber UDF. Die Codiere ich nachher. Hier kommen erstmal die
Internen Routinen dafür.Eigentlich denke ich, dass eine numerische Sortierung auf Char
Felder auch für andere noch von Interesse sein kann.

Delphi-Quellcode:

      { Test on Integer value               }
      Function TBasis_String.IsInteger
            (        Param          : String )
                                    : Boolean;
      var
         ErrCode   : integer;
         dummy      : Extended;
      begin
         Result := False;
         val(CommaToPoint(Param),dummy,ErrCode);
         If  ( ErrCode = 0 )
         and ( dummy   = round(dummy) ) then Result := True;
      End;

Delphi-Quellcode:

      { Test on Float value                }
      Function IsFloat
            (        Param          : String )
                                    : Boolean;
      var
         ErrCode   : integer;
         dummy      : Extended;
      begin
         Result := False;
         Param := Trim(Param);
         val(Param,dummy,ErrCode);
         If ErrCode = 0 then Result := True;
      End;

@JTom: Ok, die IsFloat-Funktion dürfte dass sein, was Du meinst...

Grüße // Martin