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