Вопрос про Memo

[user2010]

Придумал код (дурной головой), который проверяет, есть ли в Мемо текст. Через таймер. Подскажите плиз как правильно написать и покороче (через массив?), в общем вот криво-код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if memo1.Lines.Text='' then button1.Enabled:=false else button1.Enabled:=true;
if memo2.Lines.Text='' then button1.Enabled:=false else button1.Enabled:=true;
if memo3.Lines.Text='' then button1.Enabled:=false else button1.Enabled:=true;
if memo4.Lines.Text='' then button1.Enabled:=false else button1.Enabled:=true;
if memo5.Lines.Text='' then button1.Enabled:=false else button1.Enabled:=true;
end;

[evg_m]

button1.enabled:=(memo1.linex.count >0) or ... or (memo4.lines.count>0)

[mihali4]

Всем своим Мемо назначьте этот обработчик (не каждому свой, а всем - этот один):

procedure TForm1.Memo1Change(Sender: TObject);
begin
Button1.Enabled:=not (Trim((Sender as TMemo).Text)='');
end;

Таймер - не нужен.

[user2010]

Сообщение от mihali4

Всем своим Мемо назначьте этот обработчик (не каждому свой, а всем - этот один):

procedure TForm1.Memo1Change(Sender: TObject);
begin
Button1.Enabled:=not (Trim((Sender as TMemo).Text)='');
end;

Таймер - не нужен.

При этом способе почему то глючет, кнопка то робит то нет

button1.enabled:=(memo1.lines.count >0)

А это не понял как использовать

[user2010]

Вот чел с другого форума подсказал, работает без глюков:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Enabled := (Memo1.Text<>'') and
                     (Memo2.Text<>'') and
                     (Memo3.Text<>'') and
                     (Memo4.Text<>'') and
                     (Memo5.Text<>'');
end;

[mutabor]

user2010, давайте колитесь, по какому событию нужно определять пустой ли мемо? Михалыч дал хороший вариант, должно работать, Trim разве что можно убрать оттуда.

Вот чел с другого форума подсказал, работает без глюков:

Использовать таймер там где он не нужен, это называется через ж...

А, все, не учли один момент. Нужно ведь все мемо проверять а не один. Вот обработчик для всех мемо.

procedure TForm1.MemoChange(Sender: TObject);
begin
  Button1.Enabled := (Memo1.Text<>'') and
                     (Memo2.Text<>'') and
                     (Memo3.Text<>'') and
                     (Memo4.Text<>'') and
                     (Memo5.Text<>'');

end;

[user2010]

Спасибо всем за ответы) Колоться не надо, ибо какой-то фишки необычной здесь нету... А глючила кнопка потому что надо в обj инспекторе button1.enable в false ставить...)

[user2010]

Вот классный способ предложили:

var
  Memo        : TMemo;
  i           : Integer;
begin
  //Перебор всех компонентов на форме.
  for i := 0 to Self.ComponentCount - 1 do begin
    //Если очередной компонент оказался принадлежащим классу TMemo или его потомку.
    if Self.Components[i] is TMemo then begin
      //Устанавливаем ссылку на этот компонент.
      Memo := Self.Components[i] as TMemo;
      //Если в этом Мемо есть текст, то разрешаем кнопку и выходим из цикла,
      //тем самым - завершаем процедуру.
      if Memo.Text <> '' then begin
        Button1.Enabled := True;
        Break;
      end;
    end;
  end;
end;