Изменить текст в одной Memo и чтобы при этом изменился текст в другой

отредактировано 17:06 Раздел: FastScript
procedure Memo36OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var
s: string;
begin
s:= TfrxMemoView(Sender).Text;
SetLength(s, Length(s) - 2);
TfrxMemoView(Sender).Text := InputBox('Редактирование строки', ' ' ,s);
proc:= StrToFloat(s)/100; //проц - глобальная переменная.. содержит проценты в виде сотых, высчитанных из переменной S
Memo39.Text:=FloatToStr(<HEAD.VSUM_N>*proc);
Modified :=True;
end;

мне нужно чтобы в memo39 менялся текст в зависимости от текста в memo36... как сделать, если так прямо не работает. заранее спасибо

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.