Обнуление RichEdit.Text через процедуру с параметрами (Delphi)

[Interceptor]

У меня есть 8 форм типа RichEdit. Хочу создать несколько кнопок, по нажатию которой текст в сразу нескольких формах обнулялся. Ясно, что можно сделать, например, так:

RichEdit.Text:='';

Но я хочу обнулять через процедуру с параметрами: в качестве параметра - 2 перемеррые типа string:

Procedure Rev(var a:String; b:String);
begin
a:='';
b:='';
end;

procedure TForm1.Button4Click;
begin
      Rev(RichEdit1.Text, RichEdit2.Text)
end;

Компилятор выдаёт ошибку:

Constant object cannot be passed as var parameter

Понятно в чём дело, но непонятно как всё-таки можно реализовать обнуление теста в формах через процедуру.

[ЕЖ]

Interceptor
Тебе надо передавать в процедуру не сами строки, а указатели на RichEdit'ы, а уже в самой процедуре обнулять им св-ва Text.

[/7y3uK]

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;

[Interceptor]

ЕЖ
Попытался сделать как ты сказал:

Procedure Rev(var a:PString; b:PString; c :PString);
begin
a:=nil;
b:=nil;
c:=nil;
end;

procedure TForm1.Button4Click(Sender: PObj);
begin
      Rev(RichEdit1.Text@, RichEdit2.Text@, RichEdit3.Text@);
end;

Компилятор пишет о несовместимости типов. Как по-другому можно передать указатель в процедуру?

/7y3uK

т.к. у тебя идет не совпадение типов

На сколько хватает моих познаний в английском компилятор пишет, что постоянный объект не может быть передан как ссылка на переменную.
Тем более, что типы у меня совпадают: просто я юзаю не VCL библиотеку, а её замену. И там RichEdit.Text имеет тип String.

Вот например процедура, которая найдет на указанной форме все ричи и очистит их:

Мне нужно чтоб не все поля очищались одной кнопкой, а одной кнопкой два, другой два и т.д.

[/7y3uK]

Нет, я не понимаю... а что нет метода Clear? не может такого быть.

procedure ClrRich(a,b: TRichEdit);
begin
a.Clear;
b.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClrRich(RichEdit1,RichEdit2);
end;

А так попробуй у себя в коде из топика в процедуре VAR стереть, и должно все заработать.

[Interceptor]

/7y3uK

Нет, я не понимаю... а что нет метода Clear? не может такого быть.

Я пока разбирался тоже об этом подумал. Написал почти как у тебя, тока var в процедуре оставил: процедура должна работать с реальными переменными, а не их копиями. Всё заработало.

[ЕЖ]

Interceptor
Я как раз и имел введу то, что вы сделали с /7y3uK в последних двух постах: передавать в процедуру указатель на сам RichEdit, а не на RichEdit1.Text. Когда ты ставишь var ("работать с реальными переменными"), ты фактически передаешь процедуре указатель на объект TRichEdit, а в процедуре вызываешь его метод очистки.