Как программно перебрать в цикле все формы в приложении?

[cowboy]

Написал вот такой простой код для поиска двух форм в моем приложении

for i := 0 to application.ComponentCount-1 do
if (application.Components[i] is tform) then
for j:=0 to (application.Components[i] as tform).ComponentCount-1 do
if (application.Components[i].Components[j] is tstringgrid) then begin

if ((application.Components[i] as tform).Components[j] as tstringgrid).rowcount>10 then
if ((application.Components[i] as tform).Components[j] as tstringgrid).colcount>10 then begin
str_cut:=((application.Components[i] as tform).Components[j] as tstringgrid);
srti:=true;
end;

if ((application.Components[i] as tform).Components[j] as tstringgrid).colcount=5 then begin
stakan_str:=((application.Component s[i] as tform).Components[j] as tstringgrid);
stakan:=true;
end;

end;

Но дело в том что эта беда у мне обрабытывается под таймером с периодичностью 300 и есть подозрения что этот код ужасно грузит процессор , потому что после внедрения сего куска приложение начало подтупливать..Как мне сделать так что бы , КОГДА Я УЖЕ НАШЕЛ ЭТИ ФОРМы в следующий раз они не искались в таймере??

[postal2]

запомни их в переменные и таскай всё время

Сначала найди и запомни (скажем в к и L), а потом напрямую

stakan_str:=((application.Component s[k] as tform).Components[L] as tstringgrid).cells[0,0];

[cowboy]

а если сделать stakan_str и str_cut глобальными? и в последстии делатьпроверку следующего вида

if str_cut=nil then

ТАкое будет работать?

[postal2]

1. Если недавно программируете, то лучше перестройте логику программы, по себе знаю, что первые проги от этого у всех страдают.
Как вариант можно.
2.

if str_cut=nil then

Что такое str_cut? Если строка/число и т.п. то нет, а зачем это надо?

p.s. nil используется только для указателей (pointer), а не для строк, чисел и т.д. Если надо очистить строку, то пишем str_cut:='', проверяем соответственно if str_cut='' then

[cowboy]

2.

if str_cut=nil then

Что такое str_cut? [/QUOTE]
Это

((application.Components[i] as tform).Components[j] as tstringgrid);

..Я так слелал..Но все равно данные идут не так быстро как было раньше

[856100]

Зачем столько сложностей? Автор просил перебрать в цикле формы формы, и изменить некоторые свойства. Вот код:

var I:Integer;
begin
for i := 1 to 5 do
(Application.findComponent('Form' + inttostr(i)) as TForm).Caption :='X'+IntToStr(I);

[postal2]

Форма не обязательно должна называться Form так что.. только по классу

[856100]

Автор сам писал:

В проекте существует много форм имеющих следующие имена: Form1, Form2, ... , FormN.

[postal2]

Ну это пожалуй самый короткий код

uses .. grids;

var i,j:integer;
str:tstringgrid;
begin
str:=nil; //на всякий
for i:=0 to application.ComponentCount-1 do
for j:=0 to (application.Components[i] as tform).ComponentCount-1 do
  if ((application.Components[i] as tform).Components[j]) is tstringgrid then
    begin
    str:=((application.Components[i] as tform).Components[j]) as tstringgrid;
    end;
if s<>nil then memo1.Lines.Add(str.Cells[0,0]);
end;

РАБОТАЕТ ТОЛЬКО ЧТЕНИЕ!!!