emo1.Lines.Count do
begin
lastTag: = 1; tmpString: ='';
for CurrentSymbol: = 1 to Length (List [i]) - 9 do
if Copy (List [i], CurrentSymbol, 9) = '
begin
SeekSymbol: = CurrentSymbol; notFound: = true;
while (SeekSymbol <= Length (List [i])) and (notFound) do
begin
if Copy (List [i], SeekSymbol, 1) = '>' then
begin
tmpString: = tmpString + '
' +
Copy (List [i], lastTag, CurrentSymbol-lastTag) +
'
' +
Copy (List [i], CurrentSymbol, SeekSymbol-CurrentSymbol +1) + '
';
lastTag: = SeekSymbol +1; notFound: = false;
end;
inc (SeekSymbol);
end;
end;
if tmpString <>'' then
begin
tmpString: = tmpString + '
' + Copy (List [i], lastTag, Length (List [i])-lastTag +1) + '
';
List [i]: = '' + tmpString + '';
end;
end;
List.SaveToFile ('tmp.html');
list.Free;
ShellExecute (handle, 'Open', 'tmp.html','','', SW_SHOW);
// winexec ('tmp.html', SW_SHOW)
// Form2.showModal;
End;
// end of prosmotr}
procedure TForm1.N8Click (Sender: TObject);
begin
close;
end;
procedure TForm1.N10Click (Sender: TObject);
var tmpMemo: string;
begin
With OpenDialog2 do
if execute then
Begin
begin
tmpMemo: = tmpMemo + '';
Memo1.SelText: = tmpMemo;
end;
End;
end;
procedure TForm1.N11Click (Sender: TObject);
var Href: String;
begin
With OpenDialog3 do
if Execute then
Begin
Href: = Href + ''
+ 'Посилання' + '';
Memo1.SelText: = Href;
End;
end;
procedure TForm1.N12Click (Sender: TObject);
begin
form4.ShowModal;
end;
end.
Додаток № 2.
Скріншоти.
В В
Рис.1
В В
Рис.2
В
Рис.3
В В
Рис.4
