Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.26;
Скачать: [xml.tar.bz2];

Вниз

Проверить Edit.Text типа ВСЕ-ли цифры   Найти похожие ветки 

 
Петрович   (2003-12-15 14:02) [0]

В поле может быть и буковки, и цифры.
Есть какая-то командочка выдающая истину или ложь в зависимости от того все-ли символы ЦИФРЫ или встречаются и БУКОВКИ.
Что-то типа INSTRING...

Подскажите


 
Skier   (2003-12-15 14:05) [1]


> Есть какая-то командочка выдающая истину или ложь в зависимости
> от того все-ли символы ЦИФРЫ или встречаются и БУКОВКИ.

Нет. Сам, батенька, сам...


 
pasha_golub   (2003-12-15 14:05) [2]

function IsInteger(Val: string);
begin
Result := True;
try
strtoint(Val);
except
on EConvertError do Reult := False;
end
end;


 
Opuhshii   (2003-12-15 14:07) [3]

вообще есть стиль ES_NUMBER

Allows only digits to be entered into the edit control. Note that, even with this set, it is still possible to paste non-digits into the edit control.


 
ПИТОН   (2003-12-15 14:59) [4]

function TryStrToInt(const S: string; out Value: Integer): Boolean;


 
Anatoly Podgoretsky   (2003-12-15 15:06) [5]

Opuhshii © (15.12.03 14:07) [3]
А зачем нам edit control?

ПИТОН (15.12.03 14:59) [4]
Смотрим заголовок, в Д5 ее нет


 
Opuhshii   (2003-12-15 15:21) [6]

Хорошо, исправлюсь,..

>Есть какая-то командочка выдающая истину или ложь в зависимости от того все-ли символы ЦИФРЫ или встречаются и БУКОВКИ.

Написать самому,. перебрать строку... сравнить,..

возможно требуется чтоб в Edit вводили только цифры, тогда можно использовать стиль ES_NUMBER



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
1-86378
yong
2003-12-15 14:48
2003.12.26
Почтовая программа


14-86505
Агент Смит [8]
2003-12-03 14:53
2003.12.26
---|Ветка была без названия|---


1-86354
Прямой
2003-12-15 20:25
2003.12.26
Поможите с ProgressBar_ом pls


14-86543
Думкин
2003-12-03 06:07
2003.12.26
С днем рождения! 3 декаабря.


7-86572
Man
2003-08-11 19:43
2003.12.26
как определить серийный номер номер винчестера





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский