Как использовать Val? Опции

[TarasBer]

	val('1.1aaaa', e, code);
	writeln(e:0:7, ' ', code);
	readln;

Выводит 11 4 (вместо 1.1). Дельфа седьмая. Это нормально?
Вообще нужна функция, которая переводит начало строки в число, говоря длину этого начала.

Сообщение отредактировано: Lapp - 23.06.2010 6:26

[volvo]

Это нормально?

Это не противоречит описанию функции.

S must form a whole number.

поскольку это не выполняется, то результат - непредсказуем.

Вообще нужна функция, которая переводит начало строки в число, говоря длину этого начала.

Я бы сделал так:

function get_float(const s: string; var len: integer): double;
var
  code: integer;
begin
  Val(s, result, code);
  if code > 0 then
  begin
    len := code - 1;
    val(copy(s, 1, code - 1), result, code);
  end
  else
    len := length(s);
end;

(насколько я понимаю, нужен некий аналог sscanf - этого в Дельфи нет. Ни StrToFloat, ни TryStrToFloat не обладают подобным функционалом. А пользоваться библиотеками, работающими с регулярными выражениями - для такой простой задачи - несерьезно...)