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

[sxtdxvb]

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

[立志做一个佳娃~]

length(edit1.text);

[立志做一个佳娃~]

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

[立志做一个佳娃~]

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函数，
返回布尔型

[FrameSniper]

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，楼主自己查查吧！

[立志做一个佳娃~]

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;


四个问题
按顺序来的

[立志做一个佳娃~]

FS的答案也可

[立志做一个佳娃~]

其中tmediaplay控件在D7中的system控件页中

showmessage(inttostr(length(edit1.text)));//显示字符数

[hcjhjy]

可以找到答案了

[whitetiger8]

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

[FrameSniper]

不是吧，这样给分也太不公平了吧！哭........