Question

delphi编写的记事本

delphi编写的记事本，在保存文件时，文件名后必须加.txt的后缀才能保存成.txt的文件，代码如何编写才能去掉.txt后缀，就像xp自带的记事本一样，保存文件时只要写文件名即可，不用加.txt。还有就是在保存后form1.caption的内容显示为abc.txt - 记事本（假设保存的文件名为abc）。如何不显示.txt，显示为abc - 记事本。我写的代码如下，应如何修改，我用的是richedit来写文本。procedure TForm1.S1Click(Sender: TObject); //保存
begin
if SaveDialog1.Execute then
richedit1.Lines.SaveToFile(SaveDialog1.FileName);
form1.Caption := ExtractFileName(savedialog1.filename)+ ' - 记事本'; //获取savedialog保存的文件名
messagebox(handle,'保存成功','保存成功',64); //弹出对话框“保存成功”
end;

Answer 1

输入的时候只输入文件名就可以了，这个问题再简单不过了~改成下面这个代码~上面那个网友估计是用软件自动回复的，看得出根本没看你的题就说一些有的没的……procedure TForm1.S1Click(Sender: TObject); //保存
begin
if SaveDialog1.Execute then
richedit1.Lines.SaveToFile(SaveDialog1.FileName + '.txt');
1.Caption := ExtractFileName(savedialog1.filename)+ ' - 记事本'; //获取savedialog保存的文件名
messagebox(handle,'保存成功','保存成功',64); //弹出对话框“保存成功”
end;

Answer 2

保存的时候..取输入文件名的后4个字符,判断这4个字符是否与'.txt'相等,如果相等,说明用户输入了完整的文件名...如果不相等,说明用户输入的文件名不带扩展名,你可以自动给他加上.txt扩展名form1.caption的问题..可以通过设置文件夹选项来实现隐藏与不隐藏扩展名...如果希望通过程序来实现..就直接在保存时取文件名,去掉扩展名就行了...