[Tensh]

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

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

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

Код:

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

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

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

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

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

Код:

1 2 3 4

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

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

Код:

1 2 3 4

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

[Tensh]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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<b>(ругается тут)</b> (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.

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

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

Код:

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

[Tensh]

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

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

Код:

1 2 3 4

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

[v1s2222]

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

Код:

1 2 3 4

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

[Tensh]

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