在线等待－100分 问几个很菜的问题（每个25分啊）

Question

1.怎么获取文本框（edit memo richedit）中的字符个数。
2.如何加入midi背景音乐。
3.如何把（edit memo richedit）中的文本通过公用对话框存到硬盘以及如何读进
（edit memo richedit）
4.程序运行期间怎么排搓(例如文件不存在,我现在要求用语句限制,有则打开无则出现提示信息)

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.MediaPlayer1.FileName:='D:\Cai\MS5\Fame.mid';
mediaplayer1.open;
mediaplayer1.Play;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.SaveDialog1.Filter:='txt file|*.txt';
form1.SaveDialog1.DefaultExt:='txt';
if form1.SaveDialog1.Execute then
memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.openDialog1.Execute then
memo1.Lines.loadfromFile(form1.openDialog1.FileName);
end;判断文件存在用
fileexits函数，
返回布尔型

Answer 3

Length(Edit1.Text);
Legnth(Memo1.Text);
Length(RichEdit1.Text);不清楚，爱国人士的应该可以吧上午给了你答案了吧！对于Memo和RichEdit有自己的LoadFromFile和SaveToFile方法，所以可以不通过公用对话框，如果非要通过，只要将公用对话框的FileName属性做为参数传递给上面的那两个方法就OK了。至于Edit，因为没有上面的方法，所以需要自己定义个TStringList类来辅助获取内容，最后赋给Edit的Text属性。具体代码如下：var
  fContent:TStringList;
begin
  fContent:=TStringList.Create;
  fContent.LoadFromFile(PathToFile);  //这里如果要使用公用对话框，只要用OpenDialog1.FileName做参数就可以了
  Edit1.Text:=fContent.Text;
  //对于Memo个RichEdit由于自身提供LoadFromFile方法，所以没有必要辅助定义一个TStringList类型的变量，直接使用他们的Lines.LoadFromFile方法就可以了
  fContent.Free;
end;如果要保存道理也一样，楼主自己稍微想想就可以了！当然你可以使用函数去判断文件是否存在，如FileExist这些函数，但最好直接使用对应异常类来报告错误，至于异常类是哪个，由于手头没有安装Delphi，楼主自己查查吧！

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.openDialog1.Execute then
  if fileexists(form1.openDialog1.FileName) then
memo1.Lines.loadfromFile(form1.openDialog1.FileName)
else showmessage('no file');
end;
四个问题
按顺序来的

Answer 5

其中tmediaplay控件在D7中的system控件页中showmessage(inttostr(length(edit1.text)));//显示字符数

Answer 6

不是吧？？？ghyghost(著名关心CSDN结贴率爱国主义人士) 也太快点了，还这么全。