将Text转换为Html(下)
2001-01-12 00:00:00·
符东亮·yesky
1 2 3 4 下一页 //“保存”菜单项的OnClick事件：
void __fastcall TForm1::MenuSaveClick(TObject *Sender)
{
//保存文件
if(SaveDialog1-$#@62;Execute())
RichEdit2-$#@62;Lines-$#@62;SaveToFile(SaveDialog1-$#@62;FileName);
}
//--------------------------------------------------------------
//“退出”菜单项的OnClick事件：
void __fastcall TForm1::MenuExitClick(TObject *Sender)
{
Close();
}
//--------------------------------------------------------------
//“开始”菜单项的OnClick事件：
void __fastcall TForm1::MenuStartClick(TObject *Sender)
{
AnsiString StrLine,StrI,StrJ,StrSpaces;
int SpacesLen,IndentCount;
int CurIndent=0;
RichEdit2-$#@62;Lines-$#@62;Clear();
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;html$#@62;");
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;head$#@62;");
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;title$#@62;Untitled Document$#@60;/title$#@62;");
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\"$#@62;");
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;/head$#@62;");
RichEdit2-$#@62;Lines-$#@62;Add("");
RichEdit2-$#@62;Lines-$#@62;Add("$#@60;body bgcolor=\"#FFFFFF\" text=\"#000000\"$#@62;");
1 2 3 4 下一页 |
.