Перевод в Integer

← →
Grac (2003-05-15 10:47) [0]

Как перевести символьную переменную в целое число.
Пример: "1 "; "100 ".
Функция StrToInt() выдает ошибку "1 "is not a valid integer value".
Для значений "001"; "00100" все нормально, но если после числа есть пробелы, то вызывается данное исключение.

← →
DVM (2003-05-15 10:51) [1]

Trim

← →
Palladin (2003-05-15 10:51) [2]

а с каких это пор пробел стал считатся цифрой?

← →
Udjin (2003-05-15 10:51) [3]

Поудаляй пробелы и все будет нормально

← →
DVM (2003-05-15 10:52) [4]

try
n:=StrToInt(Trim(s));
except
//....
end;

← →
Vit@ly (2003-05-15 11:02) [5]

Val("твоя строковая переменная", n, Code);

← →
DVM (2003-05-15 11:06) [6]

Лучше так:
function MyStrToInt(s : string) : integer;
var
n : extended;
nCode : integer;
begin
val(s, n, nCode);
if nCode <> 0 then result := 0 else Result := round(n);
end;

← →
Grac (2003-05-15 11:12) [7]

Всем спасибо. Все получилось.

Перевод в Integer Найти похожие ветки