1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| procedure TForm1.Button22Click(Sender: TObject);
var
my_file : TextFile;
my_string : String;
number_of_line : integer;
begin
Memo5.Text := '<span style="font-size:12px;font-family:Lucida Grande"><pre>' + Memo3.Text + '</pre></span>';
AssignFile(my_file, 'C:\index.html');
Rewrite(my_file);
with Memo5 do
begin
For number_of_line := 0 To Lines.Count - 1 Do
begin
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[g]', '<b>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/g]', '</b>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[s]', '<u>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/s]', '</u>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[i]', '<i>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/i]', '</i>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=center]', '<div align=center>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=left]', '<div align=left>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[align=right]', '<div align=right>');
Lines.Strings[number_of_line] := ReplaceSub(Lines.Strings[number_of_line], '[/align]]', '</div>');
end;
End;
Writeln(my_file, Memo5.Text);
closeFile(my_file);
WebBrowser1.Navigate('C:\index.html');
end; |
Partager