Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2011, 15:22   #1
mixa631
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 2
По умолчанию Проблема с программой в Delphi.

Помогите, пожалуйста. Нужно написать программу, определяющую треугольник, квадрат, пятиугольник, прямоугольник в зависимости от введенных значений сторон или углов.
Я уже пытался кое-как сделать, но получилось не без ошибок.
ссылка на программу http://ifolder.ru/23983226 (так же во вложенном)
скрин ошибок
Изображения
Тип файла: jpg 3 лаба. ошибки.jpg (60.9 Кб, 152 просмотров)
Вложения
Тип файла: rar lab3.rar (176.1 Кб, 7 просмотров)
mixa631 вне форума Ответить с цитированием
Старый 06.06.2011, 15:30   #2
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

проблема должна видется вами, на скрине ошибок видно что при втором вы вели только запятую (решение: проверка на ввод цифр), а вторая ошибка в том что вы указали значение как integer (решение: укажите как real)
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 06.06.2011, 15:37   #3
mixa631
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 2
По умолчанию

благодарю, но не подскажите, код на проверку на ввод цифр?
mixa631 вне форума Ответить с цитированием
Старый 06.06.2011, 17:21   #4
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Код:
procedure TForm1.TextBoxKeyPress(Sender: TObject; var Key: Char);
begin //процедура проверки на ввод данных
if not (Key in 8,'0'..'9','.',',',DecimalSeparator) then Key:=#0;
if Key='.' then Key:=',';
{if Key=#0 then key:='0';
}
end;
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 06.06.2011, 18:12   #5
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

установи Delphi 2009+, там есть в TEdit'е свойство OnlyNumbers := true;
ZuBy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблема с программой Олег093 Помощь студентам 1 21.04.2011 16:17
Проблема с программой тузлук Помощь студентам 1 21.04.2011 16:05
Проблема с программой. elDiablo Паскаль, Turbo Pascal, PascalABC.NET 2 17.08.2010 21:59
Проблема с программой bboba Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 8 18.06.2009 19:50
Проблема с программой Delphi Middle.Cry Помощь студентам 2 24.03.2009 20:12