strtofloat в паскале Опции

[sheka]

существует ли функция подобная делфийской strtofloat в паскале?

[Client]

Val с вещественным параметром

[sheka]

а разве Val не только для integer?

[volvo]

Нет, и в Хелпе это указано, кстати:

procedure Val(S; var V; var Code: Integer);
where:
S: string-type variable; must be a sequence of characters that form a signed whole number
V: integer-type or real-type variable
Code: variable of type Integer.

[sheka]

спасибо!
просто у меня в книге написано integer, и всегда думал что в паскале нет такого перевода.
а если s не sequence of characters that form a signed whole number, что тогда? тогда соde<>0 ?

Сообщение отредактировано: sheka - 20.06.2009 20:41

[Lapp]

а если s не sequence of characters that form a signed whole number, что тогда? тогда соde<>0 ?

Нет. Там не совсем верно написано. Если v - действительного типа, то s должно представлять запись действительного числа.
Такие вещи проще всего проверять самому на примере.

[Гость]

function StrToFloat(v : String) : Real;
var Code : Integer; w : Real;
begin
  Val(v, w, Code);
  if Code <> 0 then
    StrToFloat := 0.0
  else StrToFloat := w;
end;