Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Типы данных  (Прочитано 4936 раз)
0 Пользователей и 1 Гость смотрят эту тему.
DR.XXX
Помогающий

kz
Offline Offline

« : 12-09-2009 07:06 » 

Здравствуйте всем!

У меня вопрос: как определить тип данных вводимого значения. Например, есть Tedit и TButton. После ввода значения в поле Edit и после нажатия на кнопку button чтобы выходило сообщение:"Тип - реал"(если тип реал) или "Тип - integer"(если тип integer).


Спасибо!
« Последнее редактирование: 13-09-2009 10:12 от Sel » Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 12-09-2009 07:13 » 

DR.XXX, Ты с контрола получаеш string. Попробуй ее преобразовать в другие типы. Если получаеш по рукам от конверторов, значит это не твой тип.
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #2 : 12-09-2009 09:26 » 

ээээ, стыдно признаться но ничего не понял(((
Записан
zubr
Модератор

by
Offline Offline
Пол: Мужской

« Ответ #3 : 12-09-2009 15:15 » 

DR.XXX, в Delphi есть глобальные функции StrToIntDef, StrToFloatDef, где в случае ошибки (то есть строка не соответствует типу) функция возвращает значение равное параметру Default. Вызвал последовательно данные функции - там где Default не вернулся- значит соответствующий тип.
Записан
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #4 : 12-09-2009 16:57 » 

Спасибо. Хоть теперь примерно знаю о чем речь.

Вот так пробовал, что то не хочет работать:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
   b: Integer;
begin
  b:= StrToIntDef( Edit1.Text, -1);
   If b=-1 then
      showmessage('Ошибка!');
end;
Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #5 : 12-09-2009 17:25 » 

А что не хочет работать?
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines