Zeichenkette zerlegen...

[himitsu]

VarIsNumeric...

Ja, wie der Name schon sagt ... einfach prüfen, ob im Variant ein nummerischer Wert drin steckt

Delphi-Quellcode:

Result := TryStrToFloat(String(AValue));

// aber TryStrToFloat kennt dein Delphi wohl nicht

var 
  E: Integer;
  F: Single;
Val(String(AValue), F, E);
Result := E = 0;

[edit]
halt nee, String() könnte auch noch eine Exception auslösen

Delphi-Quellcode:

try
  StrToFloat(String(AValue));
  Result := True;
except
  Result := False;
end;