Problem mit der Procedure : val

[marabu]

Hallo,

wenn es sich nur um ein deplatziertes Minuszeichen handelt, dann hätte ich auch einen Vorschlag:

Delphi-Quellcode:

function TryVal(s: String; var e: Extended): Boolean;
var
  iPos: Integer;
begin
  iPos := Pos('-' ,s);
  if iPos > 1 then
  begin
    Move(s[1], s[2], Pred(iPos));
    s[1] := '-';
  end;
  Val(s, e, iPos);
  Result := iPos = 0;
end;

Freundliche Grüße