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




Вниз

Как проверить тип данных, введенный в TEdit? 


lightix   (2002-03-06 13:31) [0]

Подзабыл, какая функция типа IsDigit или IsAlpha позволяет узнать тип данных?



gek   (2002-03-06 13:53) [1]

IsDigit и IsAlpha это в С
тут видимо надо проверять на вводе
цифра, буква или еще что и отбрасывать ненужное



Виктор Щербаков   (2002-03-06 13:59) [2]


> Как проверить тип данных, введенный в TEdit?

В TEdit вводится строка, можешь не проверять.
Но, как я понял, нужно проверить на возможность преобразования этой строки к каким-то стандартным типам. Если так, то к каким именно?

А если нужны IsDigit и IsAlpha, то элементарно реализуются:
function IsDigit(Ch: Char): boolean;
begin
if Ch in ["0".."9"] then Result := true else Result := false;
end;

function IsAlpha(Ch: Char): boolean;
begin
if Ch in ["a".."z", "A".."Z", "_"] then Result := true else Result := false;
end;



Alx2   (2002-03-06 13:59) [3]

if ch in ["0".."9"] then ch - цифра
:)



Юрий Зотов   (2002-03-06 14:12) [4]

Немного короче такие вещи пишутся:

Result := Ch in ["0".."9"]

И никаких if ... then ... else ...

:o)



Alx2   (2002-03-06 14:16) [5]

>Юрий Зотов © (06.03.02 14:12)
Уел-таки :))



Виктор Щербаков   (2002-03-06 14:18) [6]

Не хватает порой лаконичности :)



Андрей Сенченко   (2002-03-06 16:59) [7]

Потому и лейблы простого синего цвета :)
Но именно в таких "спорах" и учишься писать правильно.




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




Наверх





Память: 0.72 MB
Время: 0.015 c
14-66960          maks_f                2002-02-05 10:33  2002.03.21  
структура файла excel


1-66814           kserg@ukr.net         2002-03-07 10:49  2002.03.21  
Срочно- как узнать изменился ли TEdit.Text ?


14-66957          BWG                   2002-01-19 19:53  2002.03.21  
ICQ Mastak Active list


6-66953           otari                 2002-01-06 20:02  2002.03.21  
Как мне отправить e-mail через мой прог !!!


3-66747           Merlin                2002-02-21 01:46  2002.03.21  
Чисто теоретический вопрос