Ввод символов в компоненте TEdit (Delphi)

[zaira001002]

Никак не могу поставить ограничение. Нужно, чтобы не допускал ввод символов, как только количество цифр превысит 15. Множество Taxt: set of char я описываю в глобальных переменных. Вот вся моя процедура, подскажите ,пожалуйста, где у меня ошибка:

procedure TCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: Integer;
begin
  Edit1.ReadOnly:= true;
  Taxt:=['0'..'9',',','-'];
  for i := 1 to Length(Edit1.Text) do
    begin
      if not(Edit1.Text[i] in Taxt) and (Key <> #08) then
      begin
        key:=#0;
      end;
    end;
  if (Length(Edit1.Text) > 15)  and (Key <> #08) then
    key:=#0;
end;

[Iron Monk]

Сообщение от zaira001002

Никак не могу поставить ограничение. Нужно, чтобы не допускал ввод символов, как только количество цифр превысит 15. Множество Taxt: set of char я описываю в глобальных переменных. Вот вся моя процедура, подскажите ,пожалуйста, где у меня ошибка:

procedure TCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: Integer;
begin
  Edit1.ReadOnly:= true;
  Taxt:=['0'..'9',',','-'];
  for i := 1 to Length(Edit1.Text) do
    begin
      if not(Edit1.Text[i] in Taxt) and (Key <> #08) then
      begin
        key:=#0;
      end;
    end;
  if (Length(Edit1.Text) > 15)  and (Key <> #08) then
    key:=#0;
end;

Блин, зачем бегины на один оператор? Я голова сломал.

[zaira001002]

если даже меньше 15) оно все равно не работает так, как должно

[Аватар]

У edit-а есть свойство maxlength. Чем не устроило?

[Iron Monk]

 Edit1.ReadOnly:= true;

Смайл - головалицо.
Что бы с этим хотите ввести в Edit?

[Вадим Мошев]

Сообщение от zaira001002

Никак не могу поставить ограничение. Нужно, чтобы не допускал ввод символов, как только количество цифр превысит 15. Множество Taxt: set of char я описываю в глобальных переменных. Вот вся моя процедура, подскажите ,пожалуйста, где у меня ошибка:

procedure TCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: Integer;
begin
  Edit1.ReadOnly:= true;
  Taxt:=['0'..'9',',','-'];
  for i := 1 to Length(Edit1.Text) do
    begin
      if not(Edit1.Text[i] in Taxt) and (Key <> #08) then
      begin
        key:=#0;
      end;
    end;
  if (Length(Edit1.Text) > 15)  and (Key <> #08) then
    key:=#0;
end;

В инспекторе объектов у компонента TEdit свойство Max Length установить на 15.

А в обработчике события keyPress написать такой код

if NOT (key in ['0'..'9', chr(8)]) then begin
    key:=chr(0);
  end;

вот и всё.

[Iron Monk]

Сообщение от Вадим Мошев

В инспекторе объектов у компонента TEdit свойство Max Length установить на 15.

Там стоит едит рид онли = тру.
Что можно вообще ввести?

[Вадим Мошев]

Сообщение от Iron Monk

Там стоит едит рид онли = тру.
Что можно вообще ввести?

Ничего .

С уважением, Ваш Капитан Очевидность.

[Iron Monk]

Сообщение от Вадим Мошев

Ничего .
С уважением, Ваш Капитан Очевидность.

Нас тролят, сэр

[zaira001002]

у меня есть кнопки) я не стану ведь отправлять всю программу))) когда очевидно) что у меня что-то не так именно в Edit))) а так) у меня есть кнопки с цифрами))) оттуда и ввожу))) не принимайте меня за идиота)