Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
bifurkator
0 / 0 / 0
Регистрация: 23.06.2011
Сообщений: 1
1

Delphi7, дробные числа в таблице

26.06.2011, 23:58. Просмотров 1681. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: String);
...
procedure TForm1.FormActivate(Sender: TObject);
var i : integer;
...
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if ACol <= 1 then
    try
      strtoint(value);
    except
      showmessage('Вводить только числа');
      stringgrid1.cells[acol,arow] := '';
    end;
пользователь вводит в форму числа, если они целые, все нормально, но как сделать так чтобы можно было вводить числа с дробной частью?
и еще - программа выдает "Вводить только числа" как только я тыкаю в ячейку (даже если ничего не вводить). Ткните носом где надо исправаить, пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2011, 23:58
Ответы с готовыми решениями:

Массив в таблице StringGrid Delphi7
1. Запросить размерность одномерного массива. Заполнить его случайными числами...

Дробные числа
Добрый вечер. Помогите мне пожалуйста в этом задании: Нужно создать класс...

дробные числа
подскажите с кодо!!! написал код а он работает только с целыми числами. если...

Дробные числа неправильно вычитаются
Обнаружил странную проблему: я 3 раза вычитаю из переменной типа single 0.1...

Поиск числа в таблице StringGrid
Подскажите пожалуйста как мне сделать поиск числа задаваемого в edit???Искать...

1
i8085
1896 / 1327 / 252
Регистрация: 11.09.2009
Сообщений: 4,682
27.06.2011, 01:51 2
Цитата Сообщение от bifurkator Посмотреть сообщение
программа выдает "Вводить только числа" как только я тыкаю в ячейку
У вас так и написано - в событии SetEditText, которое выполняется при начале редактирования.

У вас используется procedure StringGrid1SelectCell, но её код вы не привели.

Цитата Сообщение от bifurkator Посмотреть сообщение
вводить числа с дробной частью
Наверное, не вводить (ввести можно всё), а проверять?
Delphi
1
2
3
4
try
 StrToFloat(value);
 except
 showmessage ...
Цитата Сообщение от bifurkator Посмотреть сообщение
Ткните носом где надо исправаить
До окончания ввода проверять нельзя - мало ли что и как будет править пользователь. Фиксируйте конец ввода. Можно в OnKeyPress отлавливать нажатие Enter, можно проверять в OnExit, можно отдельной кнопкой, можно в начале процедуры обработки введённых данных (наиболее грамотно), можно... Посмотрите по дизайну вашего проекта, как логичнее и удобнее.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2011, 01:51

1.Одномерный массив надо в Delphi7. 2.Двумерный массив надо в Delphi7
1.В массиве хранятся оценки студентов по информатике. Найти среднюю оценку и...

Проверка на наличие определенного числа в таблице
у меня есть программа которая считает сумму введенных чисел в таблице по...

Дробные значения координат
Строю график по точкам. X от 1 до ... (пусть 50). Значения Х-челое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru