procedure SaveToText(AFile: string);
var
I : Integer;
AList: TStrings;
begin
try
AList := TStringList.Create;
For I := 0 to RichEdit1.Lines.Count -1 do
AList.Add(RichEdit.Lines[I]);
AList.SaveToFile(AFile);
finally
end;
end;保存为html:
上述AList的内容前
AList.Insert(0, '<html>');
....
AList.Add('</html>');
var
I : Integer;
AList: TStrings;
begin
try
AList := TStringList.Create;
For I := 0 to RichEdit1.Lines.Count -1 do
AList.Add(RichEdit.Lines[I]);
AList.SaveToFile(AFile);
finally
end;
end;保存为html:
上述AList的内容前
AList.Insert(0, '<html>');
....
AList.Add('</html>');
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货