|
Нет, я не понимаю... а что нет метода Clear? не может такого быть.
procedure ClrRich(a,b: TRichEdit);
begin
a.Clear;
b.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClrRich(RichEdit1,RichEdit2);
end;
А так попробуй у себя в коде из топика в процедуре VAR стереть, и должно все заработать.
|