Компонентй Memo, находится на вкладке Standard. Этот компонент снабжен множеством функций, свойственных большинству редакторов.
Основным для окна редактора является свойство Lines. В нем текст окна редактирования представлен в виде списка строк. Если в процессе конструирования формы выбрать это свойство в панели объектов, то появится окно редактирования строк, в котором можно выполнить начальную настройку.
Например, можно убрать весь текст, чтобы в начале работы программы текстовая область была пустой:
Если установить свойство
Memo.ReadOnly:=true;
то компонент будет доступен только для чтения.
Заносить текст в окно редактирования можно с помощью команды
Memo.Lines.Add(строка)
Она добавит строку, указанную в скобках, в конец текста окна редактирования.
Задача. Треугольник задан тремя сторонами. Вычислить сумму, периметр и углы треугольника.
procedure TForm1.btn1Click(Sender: TObject);
var a,b,c,p,S,alf,bet,gam:Real;
begin
a:=StrToFloat(edt1.text);
b:=StrToFloat(edt2.text);
c:=StrToFloat(edt3.text);
p:=(a+b+c)/2;
S:=Sqrt((p-a)*(p-b)*(p-c)*p);
gam:=arccos((a*a+b*b-c*c)/(2*a*b));
bet:=arccos((a*a+c*c-b*b)/(2*a*c));
alf:=pi-gam-bet;
mmo1.Lines.Add('Площадь');
mmo1.Lines.Add('S='+FloatToStr(S));
mmo1.Lines.Add('Периметр p='+
FloatToStr(2*p));
mmo1.Lines.Add('Угол АСВ='+
FloatToStr(gam));
mmo1.Lines.Add('Угол АBC='+
FloatToStr(bet));
mmo1.Lines.Add('Угол BАC='+
FloatToStr(alf));
end;
