Вынос цикла

[Dima DDM]

У меня в программе ОЧЕНЬ часто повторяется цикл For(при нажатии на разные кнопки) как сделать так чтобы не пришлось прописывать его по каждому нажатию OnClick ????

[Пепел Феникса]

если цикл один и тот же, то вынесите в функцию.

[Dima DDM]

var
i:integer;
begin
for i:=0 to Form1.PageControl1.ActivePage.ControlCount-1 do
    if Form1.PageControl1.ActivePage.Controls[i] is TRichEdit then begin

Я пробовал в процедуру а как в функцию не знаю =(
Может подскажите?!

[Человек_Борща]

Все зависит от того, что делает ваш код.Если он что-то возвращает, то это сдейте отдельной функцией. Если ничего не возвращает, то делайте код процедурой.

[Dima DDM]

ОН просто перебирает все вкладки для поиска активной и вырезает на активной текст например

var
i:integer;
begin
//RichEdit1.CutToClipboard;
for i:=0 to Form1.PageControl1.ActivePage.ControlCount-1 do
    if Form1.PageControl1.ActivePage.Controls[i] is TRichEdit then begin

      TRichEdit(Form1.PageControl1.ActivePage.Controls[i]).CutToClipboard;
end;

[Johnson]

вызов функции:

begin
....
a:=MyFunction('sdfsdf');
...
end;

Описание функции:

Function MyFunctiion(Text:string):string;
begin
Text:=Text+'sdfsdfsdgdfgh';
result:=Text;
end;

Думаю, разберетесь...

PS: я бы назвал такую задачу не "вынос функции", а "вынос мозга"... Но это не моё дело, разумеется.