ЕЖ
Попытался сделать как ты сказал:
Код:
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.
Цитата:
|
Вот например процедура, которая найдет на указанной форме все ричи и очистит их:
|
Мне нужно чтоб не все поля очищались одной кнопкой, а одной кнопкой два, другой два и т.д.