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

[Stilet]

не принимайте меня за идиота)

Правильный ответ в посте №4.

[Iron Monk]

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

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

Вы сложная)))) Так всё засекретить))) Раз 100 это разбиралось на форуме. Жаль, что поиск Вам неподвластен.

[Алексей_2012]

И все ради одного калькулятора? :D

Вообще лучше сделать массив кнопок от 0 до 9, связать с tag и написать свою функцию, чтоб при он клик на кнопках этого массива проверялось условие в цикле если length<15, то в эдит ввести тэг кнопки, иначе ничего не делать

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure click (tg:byte);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  button:array[0..9] of tbutton;

implementation

{$R *.dfm}

 procedure click (tg:byte);
 begin
   edit1.text:=IntToStr(tg);
 end;

procedure TForm1.FormCreate(Sender: TObject);
var i:Byte;
begin

for i:=0 to 9 do
begin
  button[i]:=TButton.Create(self);
  button[i].Parent:=Form1;

  button[i].Tag:=i;
   button[i].Caption:=IntToStr(i);
    button[i].OnClick:=click;

   if i=0 then begin
      button[i].Left:=50;
  button[i].top:=150;
   end;

  if (i mod 3=0) and (i<>0) then
  button[i].Top:=button[i].Top+50
  else button[i].Left:= button[i].Left+50;

end;

end;

end.

На скорую руку, не работает:D доделайте)

procedure TCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: byte;
s:string;
begin
  Edit1.ReadOnly:= true;
  edit1.maxlength:=15;
s:=trim(edit1.text);
  Taxt:=['0'..'9',',','-'];
  for i := 1 to Length(s) do

      if not(s[i] in Taxt) and (Key <> #08) then
     
        key:=#0;
     
  if (Length(s) > 15)  and (Key <> #08) then
    key:=#0;
end;

если уж на то пошло, то почему бы edit1.readonly и edit1.maxlength не вынести в обработчик создания формы? Хотите чтоб при нажатии на клавишу у вас постоянно выполнялось присвоение