VPF::Val - Форум программистов

ACMilian

Дата 21.9.2006, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 5.9.2006
Где: Беларусь

Репутация: нет
Всего: нет

Прошу помощи.
Есть код:

Код


function CheckGCalList: boolean;
var
  i,j: integer;
  p: TGCalItem;
  hmm: integer;
  v, v1: extended;
begin
Result := true;
v1 := -1;
for i := 0 to GCalList.Count-1 do
  begin
  p := TGCalItem(GCalList.Items[i]^);
  val( p.v, v, j );
  if j>0 then
    begin
    MessageDlg( 'Ошибка в числе на '+p.hmm+'-м мм: '+p.v, mtWarning, [mbOk], 0 );
    Result := false;
    end;
  if v<v1 then
    begin
    MessageDlg( 'Объем на '+p.hmm+'-м мм меньше объема на предыдущем',
                mtWarning, [mbOk], 0 );
    Result := false;
    end;
  v1 := v;
  end;
end;

В val(p.v, v, j), когда навожу курсор при пошаговом просмотре на p.v - видна строка ='0,096' , но в v стоит ноль, как сделать так, чтобы в v передавалось значение p.v.?

ДенисБелов

Дата 21.9.2006, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Подмастерье

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 12.9.2006
Где: Россия, Киров

Репутация: нет
Всего: нет

val тока для Integer вроде б.
Используй v:=FloatToStr(p.v); {тока разделитель целой и дробной части точка, а не запятая}
Если p.v невозможно преобразовать в число, то выкинет в ощибку, чтобы избежать можно заключить в Try
v:=FloatToStr(p.v);
Except
{Исключение}
End;

Snowy

Дата 21.9.2006, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(ДенисБелов @ 21.9.2006, 11:22

)

val тока для Integer вроде б.

Нет. И для реал тоже.

Цитата(ДенисБелов @ 21.9.2006, 11:22

)

Используй v:=FloatToStr(p.v); {тока разделитель целой и дробной части точка, а не запятая}Если p.v невозможно преобразовать в число, то выкинет в ощибку, чтобы избежать можно заключить в Try

Тогда уж TryStrToFloat.

ACMilian

Дата 21.9.2006, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 5.9.2006
Где: Беларусь

Репутация: нет
Всего: нет

Спасибо, разобрался.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »