Developing.ru

Код: Выделить всё

procedure SendTextToAllEdits(Text: String);
var
  i: Integer;
begin
  For i := 0 to Form1.ComponentCount-1 do
  if Form1.Components[i] is TEdit then
    (Form1.Components[i] as TEdit).Text := Text;
end;

Код: Выделить всё

procedure SendTextToAllEdits(Text: String);
var
  i: Integer;
  Edit: TEdit;
begin
  For i := 1 to 89 do
  begin
    Edit := Form1.FindComponent('Edit' + IntToStr(i)) as TEdit;
    if Assigned(Edit) then Edit.Text := Text;
  end;
end;

Код: Выделить всё

type
  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
    function GetEdit(Index: Integer): TEdit;
  public
    property Edit[Index: Integer]: TEdit read GetEdit;
    { Public declarations }
  end;

...
implementation

function TForm1.GetEdit(Index: Integer): TEdit;
begin
  Result := Form1.FindComponent('Edit' + IntToStr(Index)) as TEdit;
  if Result = nil then Raise(Exception.Create('Компонент Edit' + IntToStr(Index) +  ' не существует'));
end;

Код: Выделить всё

For i := 1 to 89 do Edit[i].Text := 'Hello ' + IntToStr(i);