怎样把MEMO里输入的内容保存为一个TXT文件

[sy0116]

用SAVEDIALOG好像不行

[Dlwxn]

来晚了，这年头挣口饭真不容易！

[huojiehai]

变通一下嘛！！
if savedialog.execute then
begin
if Pos('.TXT', Uppercase(savedialog.filename)) > 0 then
MEMO1.lines.savetofile(savedialog.filename)
else
MEMO1.lines.savetofile(savedialog.filename + '.txt');
end;

[lovewangshu]

if Pos('.TXT', Uppercase(savedialog.filename)) > 0
什么意思？

[elilor]

设置DefualtExt为.txt

[大地精灵]

又来晚了啊

[ExSystem]

来晚了，不过告诉你，以后碰到类似的问题，先要看看控件的属性、方法……只要看看英文意思，也许问题就解决了……比如对剪贴板的操作。

[ExSystem]

最后，接分！:)

[bxh2dai]

最简单的：memo.lines.savetofile('保存的路径')

[huojiehai]

if savedialog.execute then
MEMO1.lines.savetofile(savedialog.filename + '.txt');

[WWWWA]

memo1.lines.savetofile('c:\123.txt')

[Zhymax]

直接读出写到txt文件不就行了

[walkmangood]

copy字符串不可以吗

[sy0116]

用
if savedialog.execute then
MEMO1.lines.savetofile(savedialog.filename + '.txt');
如果用户已经输入了a.txt的话岂不是变成了a.txt.txt

[ronaldli]

ChangeFileExt(SaveDialog1.FileName, 'txt');

[lemon_wei]

memo1.lines.savetofile('c:\filename.txt')