Реферат: Особенности создания математических формул в Web

With OpenDialog2 do

if execute then

Begin

begin

tmpMemo:=tmpMemo + '<img src=' + ExtractFilename(Filename) + '>';

Memo1.SelText :=tmpMemo;

end;

End;

end;

procedure TForm1.N11Click(Sender: TObject);

var Href: String;

begin

With OpenDialog3 do

if Execute then

Begin

Href:=Href + '<a href=' + ExtractFilename(OpenDialog3.Filename) + '>'

+ 'Ссылка' + '</a>';

Memo1.SelText :=Href;

End;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form4.ShowModal;

end;

end.

Приложение№2.

Скриншоты.

Рис.1

Рис.2

Рис.3

Рис.4