一个好学的菜虫求问：做一个文本类的东西！

Question

memo1.Font.Color :=clred;
memo1.Font.Name:='宋体';
memo1.Font.Size:=15;
memo1.Font.Style:=[fsBold,fsItalic,fsUnderline,fsStrikeOut]; //减少里面的元素得到你所需要的效果

Answer 1

忘了对齐了
memo1.Alignment := taCenter;      //居中
memo1.Alignment := taLeftJustify; //左边
memo1.Alignment := taRightJustify;//右边

Answer 2

assign(textfile,filaname)
rewrite//读写
reset//只读
writeln//写进一行fileclose

Answer 3

！！！procedure Tform1.New1Click(Sender:TObject)   
{
 Memo1.Lines.Clear;
}procedure Tform1.SaveAs1Click(Sender:TObject)   
{
 if SaveDialog1.Execute then
 Memo1.Lines.SaveToFile(SaveDialog1.FileName);
}procedure Tform1.Open1Click(Sender:TObject)   
{
 if OpenDialog1.Execute then
 Memo1.Lines.SaveToFile(OpenDialog1.FileName);
}

Answer 4

SORRY
procedure Tform1.Open1Click(Sender:TObject)  
{
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
}