Основы языка Delphi


              

Примеры функций



Листинг 6.3. Примеры функций

// проверяет, является ли символ допустимым

// во время ввода целого числа

function Islnt(ch : char) : Boolean;

begin

if (ch >
= '0'} and (ch <= '9') // цифры

or (ch = 113) // клавиша <Enter>


or (ch = #8) // клавиша <Backspace>


then Islnt := True // символ допустим
else Islnt := False; // недопустимый символ

end;

// проверяет, является ли символ допустимым

// во время ввода дробного числа

function IsFloat(ch : char; st: string) : Boolean;

begin

if (ch >
= '0') and (ch <= '9') // цифры

or (ch = #13) // клавиша <Enter>


or (ch = #8) // клавиша <Backspace>


then

begin

IsFloat := True; // символ верный
Exit; // выход из функции

end;
case ch of

'-': if Length(st) = 0
then IsFloat := True; ',':
if (Pos(',',st) = 0)

and (st[Length(st)]'>
= '0') and (st[Length(st)] <= '9')

then // разделитель можно ввести только после цифры // и если он еще не введен

IsFloat := True; else // остальные символы запрещены

IsFloat := False;
end;
end;

Содержание  Назад  Вперед