Как перевести в число строку '12k'?

[GAMER]

В Turbo Pascal, если я не ошибаюсь, процедура val, давала результат 12 и указывала, что ошибка в 3-м символе.
FPC результирует в 0. StrToInt, говорит, что некоректное числовое значение.
Есть ли простой метод получить 12?

[zub]

12k вообщето 12000))
руками фильтрануть строку оставив только цифры + - . e

[GAMER]

То есть, такая работа val - фича, а не баг?

12k - специально подбирал букву, чтобы не попасть в 16-ю систему, и все равно "попал"

[zub]

>>То есть, такая работа val - фича, а не баг?
Стандартов на этот счет не видел, но ИМХО нормальная работа функции. Это в ТР баг (тоже ИМХО), на входе не число, на выходе число

[GAMER]

Так же и MySQL работает, если поле числовое, а ему на вход кривое число подают. Он число пишет, а буквы отбрасывает.

[VirtUX]

число пишет, а буквы отбрасывает

ввод в заблуждение! ИМХО.

[GAMER]

число пишет, а буквы отбрасывает

ввод в заблуждение! ИМХО.

В смысле я - неправ или Мускуль вводит в заблуждение?

[stikriz]

Как перевести в число строку '12k'?

А как перевести строку цащцшр342дтывд493оркы4
В 342493.4 ?
А то все ругаются...
- Доктор, когда я делаю вот так... Мне больно!
- Ну, так не делайте так, голубчик.

С каких пор 12к - это число? Это строка.

Добавлено спустя 1 минуту 40 секунд:

FPC результирует в 0. StrToInt, говорит, что некоректное числовое значение.

Ничего он не результирует. Сразу поднимается исключение. Ибо это не число.

[GAMER]

Код: Выделить всё

var k: real; r:byte; st: ansistring;
begin
val('12',k,r);
write(k,'  ',r);
val('12a',k,r);
write(k,'  ',r);
end.

Посмотрите.

[stikriz]

Я и имел в виду StrToInt.
А так пойдет?

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var k: real; r:byte; st: ansistring;
begin
val('12a',k,r);
Memo1.Lines.Add(FloatToStr(k)+' '+IntToStr(r)+' '+'12a');
Memo1.Lines.Add('');
if r > 0 then
   begin
        val(Copy('12a', 1, r-1), k, r);
        Memo1.Lines.Add(FloatToStr(k)+' '+IntToStr(r)+' '+'12a');
   end

end;


[GAMER]

Так - пойдет. Просто, на этапе написания поста, я не знал баг это или фича (Старые воспоминания про турбо паскаль немного смущали )

[Sergei I. Gorelkin]

Будь это фичей, из строки '-12x' должно получаться -12, но знак теряется и получается 12. Поэтому можно сделать вывод, что Дельфи просто забывает обнулить результат в случае ошибки.
Хотя, возможно, стоит пропатчить Val() в FPC, чтобы вела себя таким образом (с учетом знака, естественно). Может оказаться полезным...