single and string

← →
Bee (2010-04-29 22:29) [0]

function TptmMain.TakeSingle(Grid : TStringGrid; Col, Row: Integer; out Value : Single) : Boolean;
var
e : Single;
s : string;
begin
s := Grid.Cells[Col, Row];
if s = "" then s := "0";
Val(s, Value, e);//ругается на несовместимость типов
Result := (e = 0);
if not Result then begin
Grid.Col := Col;
Grid.Row := Row;
ActiveControl := Grid;
end;
end;

// на Integer все работает, а нужно на вещественных

← →
Игорь Шевченко © (2010-04-29 22:32) [1]

StrToFloat ?

← →
Bee (2010-04-29 22:34) [2]

нет, пробовала
когда параметр e : Integer
все хорошо!
а с single не хочет!

← →
Bee (2010-04-29 22:34) [3]

нет, пробовала
когда параметр e : Integer
все хорошо!
а с single не хочет!

← →
Сергей М. © (2010-04-29 22:39) [4]

> ругается на несовместимость типов

Справка дана не щоб була, а чтобы ее читали.

← →
Игорь Шевченко © (2010-04-29 22:39) [5]

> когда параметр e : Integer

e - Это код ошибки и он обязан быть Integer

Еще раз - почему не StrToFloat ?
И почему бы справку не почитать ?

← →
Германн © (2010-04-30 01:33) [6]

> Bee (29.04.10 22:34) [3]
>
> нет, пробовала
> когда параметр e : Integer
> все хорошо!
> а с single не хочет!
>

А мне, чёрт возьми, понравилось. Это что-то типа "глазами хакера".
Ведь для Integer работает!
:)

← →
Bee (2010-04-30 09:06) [7]

Хи)
я разобралась!!!
И НЕ НАДО ТУТ НИКАКИХ StrToFloat!

← →
Демо © (2010-04-30 09:09) [8]

> Bee (30.04.10 09:06) [7]
> Хи)
> я разобралась!!!
> И НЕ НАДО ТУТ НИКАКИХ StrToFloat!

Молодец какая.
Поделись источником радости с народом;)

> Поделись источником радости с народом;)
поставило переменной "e" назад тип интеджер. т.к. наконец то дошло что тут писали... частично.

> И НЕ НАДО ТУТ НИКАКИХ StrToFloat!
вопрос спорный... проверка ошибочных значений например нужна? ну например отчет какой делаешь, и кто то не так значение внес, что лучше сказать об этом пользователю или "сглотнуть" ошибку и дать значение 0? (нужно бывает и то и то, но вот у тебя тут как?)

> sniknik (30.04.2010 09:32:09) [9]

А может грибы, особым методом приготовленые.

← →
Bee (2010-04-30 21:04) [11]

Не не не
не ругайтесь!!!!
там все гуд!!!!!!!
немного не то имела в виду!!!!

single and string Найти похожие ветки