Feststellen von Extendedwert

[Tryer]

Delphi-Quellcode:

var
  iCode: Integer;
  eExtended: Extended;
begin
  Val('123.567', eExtended, iCode);
  if iCode = 0 then
    ShowMessage('Jap');
end;

MfG,
Tryer