[Tensh]

Добрый вечер. Собственно возникла проблема. Было дано куча заданий по информатике из одной книжки, где вроде бы очень неплохо расписаны все возможности Delphi, ну и книжка соответственно наполнена различными заданиями.
Вот собственно само задание

Пусть необходимо проверить, является ли допустимым вводимый в окно редактирования символ при наборе натурального числа. В соответствии с поставленной задачей разрешимыми для ввода являются цифры, клавиши Enter (символ - #13) и Backspace (символ - #8) - стирание влево неверно введенного символа.

Назовем нашу функцию ProvInputInt. Описание функции можно представить в виде:

Код:

function ProvInputInt (ch: char): Boolean; begin

if (ch>='0') and (ch<='9') or (ch=#13) or (ch=#8) 
then ProvInputInt:=True // символ допустим 
else Provlnputlnt:=False; //символ недопустим

end;

Функция работает с одним параметром — ch - переменная типа Char, результат работы функции — переменная типа Boolean. В теле функции проверяется, каким символом является символ ch. Если символ ch - цифра, #13 или #8, то значению функции Provlnputlnt присваивается значение True, иначе значению функции Provlnputlnt присваивается значение False.

Проблема возникла вот в чём. Вроде бы функция написана, как она работает понятно. Вот только как её использовать абсолютно не понятно. Нужно её каким-то образом для поля Edit применить, только вот в книге не написано как, а без наглядного примера воображение не работает...

Помогите пожалуйста.

[Страдалецъ]

В событии OnKeyPress компонента Edit вы можете проводить обработку:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not ProvInputInt(Key) then Key := #0
end;

А что касается самой функции я бы немножко ее изменил:

Код:

function ProvInputInt (ch: char): Boolean; 
begin
 ProvInputInt := ch in ['0'..'9',#13,#8];
end;

[Tensh]

Благодарю.
UPD: Пока тему не закрыли.
Возникла ещё одна проблема со схожей задачей.
Ругается: Operator no applicable to this operand type.

Код:

function ProvInputDrobn (ch: char; str: string): Boolean;
begin

   if (ch>='0') and (ch<='9') or (ch=#13) or (ch=#8)
    then
    begin
    ProvInputDrobn:=True;
     Exit;
    End;

Case ch of

 '-': if Length(str)=0 then ProvInputDrobn:=True;
 ',': if (Pos(',',str)=0 and
         (str[Length(str)]>='0') and(ругается тут) (str[Length(str)]<='9')
         then ProvInputDrobn:=True
       else ProvInputDrobn:=False;

 end;

 end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not ProvInputDrobn(Key) then key:=chr(0);
end;

end.

[Страдалецъ]

Наверное так должно быть:

Код:

if (Pos(',',str)=0) and (str[Length(str)]>='0') and (str[Length(str)]<='9')
then ProvInputDrobn :=True

[Tensh]

А почему один пробел так всё изменил?

Теперь ругается: not enough actual parameters

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ProvInputDrobn(Key)(тут) then key:=chr(0);
end;

[v1s2222]

У тебя ж функция имеет 2 параметра:
function ProvInputDrobn (ch: char; str: string): Boolean;
А ты заполняешь только один:

Код:

if not ProvInputDrobn(Key)(тут) then key:=chr(0);

// ты должен указать еще строку:
if not ProvInputDrobn(Key, s) then key:=chr(0);

[Tensh]

Что-то не сработало.