Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Как вместо приведенного текста сделать цикл (for i:=0 to 40 do)?

Вопрос задала: Наташа (статус: Посетитель) Вопрос отправлен: 31 октября 2007, 08:02 Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Если все TSpinEdit'ы размещены на форме ещё в Run-time, то примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  SpinEdit: TSpinEdit;
  Component: TComponent;
begin
  for i:= 0 to 40 do // Не ошибись с индексом (массив B индексирован с 0)
    begin
      Component:= FindComponent('SpinEdit' + IntToStr(i + 1));
      if Assigned(Component)
        then TSpinEdit(Component).Value:= B[i]
        else begin
               ShowMessage('SpinEdit' + IntToStr(i + 1) + ' не найден.');
               Break;
             end;
    end;
end;

type
  TSpinArray = array[1..41] of TSpinEdit;
 
  TForm1 = class(TForm)
    ...
  public // или private
    FSpinEdits: TSpinArray;
    constructor Create(AOwner: TComponent); override;
  end;
 
implementation
 
 ...
 
constructor TForm1.Create(AOwner: TComponent);
var
  i: Integer;
begin
  inherited;
 
  for i:= 1 to 41 do
    begin
      FSpinEdits[i]:= TSpinEdit.Create(Self);
      with FSpinEdits[i] do
        begin
          Name:= 'SpinEdit' + IntToStr(i); // Если доступ будет только из массива, то это не нужно
          Top:= <Верхний край>;
          Left:= <Левый край>;
          OnChange:= <Обработчик, если нужен>;
        end;
    end;
end;

for i:= 0 to 40 do
  FSpinEdits[i + 1].Value:= B[i];

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 31 октября 2007, 08:35 Оценка за ответ: 5

Ответ #2. Отвечает эксперт: ANBsoft

Здравствуйте, Наташа!
Предыдущий эксперт все хорошо описал, поэтому добавлю свои уточнения:
1)код можно упростить
for i:= 0 to 40 do
TSpinEdit(FindComponent('SpinEdit' + IntToStr(i + 1))).Value:= B[i];
В принципе этого достаточно, так как если форма разработана еще в среде программирования и на форме не будет хватать какого-то элемента, то ошибка выскочит при первом же запуске этого кода, более того, это даже лучше что ошибку будет видно сразу. Поэтому проверку (if Assigned(Component) ) делать не обязательно.
2)Динамически создавать объекты возможно и часто это полезно, однако накладывает на программиста дополнительную работу по начальной инициализации свойств объекта, а также, возможно, ручную обработку его удаления. (В моей практике был случай, когда один и тот же код размещенный в форме работал, а при помещении его в отдельную DLL ничего не работало, после полудня разбирательств выяснилось что один из компонентов не выполняет начальную инициализацию свойств при создании его динамически). Так что при создании объекта динамически нужно быть более внимательным.

Успехов.

Ответ отправил: ANBsoft (статус: Студент) Время отправки: 31 октября 2007, 09:47 Оценка за ответ: 5

Мини-форум вопроса

31 января 2011, 19:30: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.