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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2011, 01:48   #11
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

если по умолчанию, лучше не трогать, Delphi копризная штука), или узнаи у кого нибудь по опытнее
пост #4 там вроди проверка на буквы
если нет напиши придумаем
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 08.02.2011, 05:11   #12
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Цитата:
Сообщение от voverrr
попробую сам дописать проверку на "строковость" вводимого значения
Читайте внимательней, что вам пишут.
Цитата:
Сообщение от asmodey1
Есть такая функция - TryStrToInt()...
Или
SibComponents.zip
SibNumberEdit - это числовой эдит.

Последний раз редактировалось Sibedir; 08.02.2011 в 05:30. Причина: Перезалил вложение. Первый вариант с багом был.
Sibedir вне форума Ответить с цитированием
Старый 08.02.2011, 05:33   #13
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

верно, и от меня спасибо
функция возврашает True если в строки цифры и False если буквы
Код:
function TryStrToInt(s:string;var i:integer):boolean;
var
  t:integer;
  c:integer;
begin
  val(s,t,c);
  if c=0 then begin
    i:=t;
    Result:=True;
  end else
    Result:=False;
end;
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 08.02.2011, 08:08   #14
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

А не проще будет в этом обработчике эдита написать

Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not key in['0'..'9'] then key:='0';
end;

Последний раз редактировалось SERG1980; 08.02.2011 в 08:12.
SERG1980 вне форума Ответить с цитированием
Старый 08.02.2011, 09:27   #15
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Цитата:
А не проще будет в этом обработчике эдита написать
Не всегда. Нет "защиты от дурака". Например строка '93465823465872364875623874' не преобразуется в Integer. К тому же может быть и такое целое: '123e3'. '123000e-2', кстати, тоже целое число.
Sibedir вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
потоки; ошибка инди; значения for в edit gamer123 Общие вопросы Delphi 3 09.08.2010 13:58
Ошибка при наведении фокуса на Edit Gumer Общие вопросы Delphi 2 21.04.2010 00:13
при присвоении ADOQuery.SQL.Text значения DBLookupComboBox.KeyValue возникает ошибка namazi74 БД в Delphi 1 10.04.2010 07:20
Ошибка при очистке динамического массива. S_Yevgeniy Помощь студентам 4 24.12.2009 18:45
При помощи чего можно разбить значения в Edit IgoROCK Помощь студентам 5 22.12.2008 21:50