индексация Edit итд

Edi · #1 16.05.2009, 23:46

здрастувуйте. Проблема такая, например у Меня есть 40 полей Edit (Edit1,Edit2,.....Edit40) .
как сделать, если Я в Edit1 введу какую то цифру и хочу применить ко всем остальным. то есть не писать так
Edit2:=Edit1+5
Edit3:=Edit2+5 до того как Edit40:=Edit39+5
есть ли какая то ли общая идексация Edit(i):=Edit(i-1)+5 .
Зарание спосибо

Nyctos Kasignete · #2 17.05.2009, 00:11

Можно всем Edit'ам назначить один и тот же обработчик события OnChange, в котором прописать действие по изменению содержимого следующего Edit'а по отношению к вызвавшему событие. При этом идентифицировать все Edit'ы можно по свойству Tag. В общем, на словах трудно пояснить... Вот код.
pas-файл:

Код:

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.

dfm-файл:

Код:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 128
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 0
    OnChange = AllEditsChange
  end
  object Edit2: TEdit
    Left = 128
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 1
    OnChange = AllEditsChange
  end
  object Edit3: TEdit
    Left = 128
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 2
    OnChange = AllEditsChange
  end
  object Edit4: TEdit
    Left = 128
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 3
    OnChange = AllEditsChange
  end
  object Edit5: TEdit
    Left = 128
    Top = 152
    Width = 121
    Height = 21
    TabOrder = 4
    OnChange = AllEditsChange
  end
  object Edit6: TEdit
    Left = 128
    Top = 176
    Width = 121
    Height = 21
    TabOrder = 5
    OnChange = AllEditsChange
  end
  object Edit7: TEdit
    Left = 128
    Top = 200
    Width = 121
    Height = 21
    TabOrder = 6
    OnChange = AllEditsChange
  end
  object Edit8: TEdit
    Left = 128
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 7
    OnChange = AllEditsChange
  end
  object Edit9: TEdit
    Left = 128
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 8
    OnChange = AllEditsChange
  end
  object Edit10: TEdit
    Left = 128
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 9
    OnChange = AllEditsChange
  end
  object Edit11: TEdit
    Left = 256
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 10
    OnChange = AllEditsChange
  end
  object Edit12: TEdit
    Left = 256
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 11
    OnChange = AllEditsChange
  end
  object Edit13: TEdit
    Left = 256
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 12
    OnChange = AllEditsChange
  end
  object Edit14: TEdit
    Left = 256
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 13
    OnChange = AllEditsChange
  end
  object Edit15: TEdit
    Left = 256
    Top = 152
    Width = 121
    Height = 21
    TabOrder = 14
    OnChange = AllEditsChange
  end
  object Edit16: TEdit
    Left = 256
    Top = 176
    Width = 121
    Height = 21
    TabOrder = 15
    OnChange = AllEditsChange
  end
  object Edit17: TEdit
    Left = 256
    Top = 200
    Width = 121
    Height = 21
    TabOrder = 16
    OnChange = AllEditsChange
  end
  object Edit18: TEdit
    Left = 256
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 17
    OnChange = AllEditsChange
  end
  object Edit19: TEdit
    Left = 256
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 18
    OnChange = AllEditsChange
  end
  object Edit20: TEdit
    Left = 256
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 19
    OnChange = AllEditsChange
  end
  object Edit21: TEdit
    Left = 384
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 20
    OnChange = AllEditsChange
  end
  object Edit22: TEdit
    Left = 384
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 21
    OnChange = AllEditsChange
  end
  object Edit23: TEdit
    Left = 384
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 22
    OnChange = AllEditsChange
  end
  object Edit24: TEdit
    Left = 384
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 23
    OnChange = AllEditsChange
  end
  object Edit25: TEdit
    Left = 384
    Top = 152
    Width = 121
    Height = 21
    TabOrder = 24
    OnChange = AllEditsChange
  end
  object Edit26: TEdit
    Left = 384
    Top = 176
    Width = 121
    Height = 21
    TabOrder = 25
    OnChange = AllEditsChange
  end
  object Edit27: TEdit
    Left = 384
    Top = 200
    Width = 121
    Height = 21
    TabOrder = 26
    OnChange = AllEditsChange
  end
  object Edit28: TEdit
    Left = 384
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 27
    OnChange = AllEditsChange
  end
  object Edit29: TEdit
    Left = 384
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 28
    OnChange = AllEditsChange
  end
  object Edit30: TEdit
    Left = 384
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 29
    OnChange = AllEditsChange
  end
  object Edit31: TEdit
    Left = 512
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 30
    OnChange = AllEditsChange
  end
  object Edit32: TEdit
    Left = 512
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 31
    OnChange = AllEditsChange
  end
  object Edit33: TEdit
    Left = 512
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 32
    OnChange = AllEditsChange
  end
  object Edit34: TEdit
    Left = 512
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 33
    OnChange = AllEditsChange
  end
  object Edit35: TEdit
    Left = 512
    Top = 152
    Width = 121
    Height = 21
    TabOrder = 34
    OnChange = AllEditsChange
  end
  object Edit36: TEdit
    Left = 512
    Top = 176
    Width = 121
    Height = 21
    TabOrder = 35
    OnChange = AllEditsChange
  end
  object Edit37: TEdit
    Left = 512
    Top = 200
    Width = 121
    Height = 21
    TabOrder = 36
    OnChange = AllEditsChange
  end
  object Edit38: TEdit
    Left = 512
    Top = 224
    Width = 121
    Height = 21
    TabOrder = 37
    OnChange = AllEditsChange
  end
  object Edit39: TEdit
    Left = 512
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 38
    OnChange = AllEditsChange
  end
  object Edit40: TEdit
    Left = 512
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 39
    OnChange = AllEditsChange
  end
end

Пардон, это только выглядит страшно. Весь объем из-за большого количества Edit'ов.

Edi · #3 17.05.2009, 22:03

Я сделал копию этого

Код:

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 что хочешь а остальные как есть так и остаются

Edi · #4 17.05.2009, 22:08

после копии дфм кода уже получилось
Спосибо большое

mak-karpov · #5 25.06.2009, 11:50

Или

Код:

var E : TEdit;
begin
...
E := Form1.FindComponent('Edit'+IntToStr(i)) as TEdit;
E.Text := '...';

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты