Показать сообщение отдельно
  #3  
Старый 17.05.2009, 22:03
Edi Edi вне форума
Прохожий
 
Регистрация: 16.05.2009
Сообщения: 9
Репутация: 10
По умолчанию

Я сделал копию этого
Код:
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 что хочешь а остальные как есть так и остаются
Ответить с цитированием