VPF::Edit и десятичные числа !! - Форум программистов

Azur

Дата 25.5.2006, 11:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Как сделать чтобы в компоненте Edit числа записывались не больше двух знаков после запятой?

Snowy

Дата 25.5.2006, 11:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

Используй MaskEdit

Nickel

Дата 25.5.2006, 12:23 (ссылка)

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

Загрузка ...

Шустрый

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

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

Или добавь приблизительно такое событие OnChange:

Код


var x:double;
begin
  if (TryStrToFloat(TEdit(Sender).Text,x)) and
     (TEdit(Sender).Text[Length(TEdit(Sender).Text)]<>',') and
     (TEdit(Sender).Text[Length(TEdit(Sender).Text)]<>'0') then
    begin
      TEdit(Sender).Text:=FloatToStr(Round(x*100)/100);
      TEdit(Sender).SelStart:=Length(TEdit(Sender).Text);
    end;
end;

Yanis

Дата 25.5.2006, 12:23 (ссылка)

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

Загрузка ...

Эксперт

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

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

Azur
А ты как в Edit записываешь? Или пользователь вводит?

--------------------

*щёлк*

Azur

Дата 25.5.2006, 17:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

А ты как в Edit записываешь? Или пользователь вводит?

Программа сама выводит числа, из переменной.

Yanis

Дата 25.5.2006, 17:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

Попробуй использовать RoundTo:

Код

var
  d: Double;
begin
  d := 12312.213;
  Edit1.Text := FloatToStr(RoundTo(d, -2));
end;

или банальное обрезание строки:

Код

var
  d: Double;
  n: byte;
  s: String;
begin
  d := 999.213;
  n := 2; // кол-во символов для обрезания (с конца)
  s := FloatToStr(d);
  Delete(s, LastDelimiter(DecimalSeparator, s) + n + 1, Length(s));
  Edit1.Text := s;
end;

Добавлено @ 17:42
Различия в том, что первый вариант округляет, а второй обрезает.

--------------------

*щёлк*

Nickel

Дата 26.5.2006, 18:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

А что будет если в эдит написать не число? Да и собственно чем мой вариант не нравится? smile

Yanis

Дата 26.5.2006, 19:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Nickel @ 26.5.2006, 19:39

)

А что будет если в эдит написать не число?

Цитата(Azur @ 25.5.2006, 18:02

)

Программа сама выводит числа, из переменной.

Надо учитывать, какая переменная используется, но наверное всё таки real число.

Цитата(Nickel @ 26.5.2006, 19:39

)

Да и собственно чем мой вариант не нравится?

Честно? Мне не нравятся сплошные приведения типов. А так всё замечательно smile

P. S. Nickel, если обидел, то не специально. Просто предложил вариант.

Это сообщение отредактировал(а) Yanis - 26.5.2006, 19:02

--------------------

*щёлк*

Nickel

Дата 26.5.2006, 19:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Yanis @ 26.5.2006, 19:01)

Цитата(Nickel @ 26.5.2006, 19:39

)

А что будет если в эдит написать не число?

Цитата(Azur @ 25.5.2006, 18:02

)

Программа сама выводит числа, из переменной.

Надо учитывать, какая переменная используется, но наверное всё таки real число.

А эдит у нас read-only? Вдруг туда пользователь чего-нибудь сунет? Да и мало ли какая переменная, мож их стринговой? =)

Цитата(Yanis @ 26.5.2006, 19:01)

P. S. Nickel, если обидел, то не специально. Просто предложил вариант.

Просто я подумал, что мой вариант остался без внимания вот решил пробудить к нему интерес smile

Azur

Дата 27.5.2006, 16:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Переменная real!!!
Мне как раз то и надо округлять, поэтому воспользуюсь вариантом RoundTo!!
Всем спасибо ! smile

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