Chekke om det er float

Hvis du bruger D6 er der en indbygget function til det

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  f: double;
begin
  s := '123,222';
  if TryStrToFloat(s, f) then
    ShowMessage('Ok!')
  else
    ShowMessage('No valid float number!');
end;

Stoney

Val, findes i en hver version af Delphi!

function IsFloat(S: String): Boolean;
var
  E: Extended;
  Code: Integer;
begin
  Val(S, E, Code);
  Result := Code = 0;
end;