|
Interceptor
Во-первых, для обнуления TRichEdit нужно использовать его метод Clear. Например RichEdit1.Clear.
Во вторых, естественнов том виде, в котором ты написал процедуру, компилятор будет тебя ругать нехорошими словами, т.к. у тебя идет не совпадение типов. Если использовать твою процедуру, то можно написать так Rev(RichEdit1.Lines[номер строки], RichEdit2.Lines[номер строки]), но лучше, все-таки, чистить через Clear.
Вот например процедура, которая найдет на указанной форме все ричи и очистит их:
procedure ClearReaches(fm: TForm);
var
i: Cardinal;
begin
for i:=0 to fm.ControlCount-1 do
if fm.Controls[i].ClassNameIs('TRichEdit') then
(fm.Controls[i] as TRichEdit).Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClearReaches(Form1);
end;
|