Я сделал копию этого
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit36: TEdit;
Edit37: TEdit;
Edit38: TEdit;
Edit39: TEdit;
Edit40: TEdit;
procedure AllEditsChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AllEditsChange(Sender: TObject);
var
EditTag: Integer;
begin
EditTag := (Sender as TEdit).Tag;
if EditTag < 41 then
TEdit(FindComponent('Edit' + IntToStr(EditTag))).Text :=
IntToStr(StrToInt((Sender as TEdit).Text) + 5);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Byte;
begin
for i := 1 to 40 do
TEdit(FindComponent('Edit' + IntToStr(i))).Tag := i + 1;
end;
end.
Admin: Пользуемся тегами!
ошибок не находит но автомотический не заполняется. просто можно писать на каждый Edit что хочешь а остальные как есть так и остаются