您所在位置：主题：初学Delphi，菜鸟问题。希望大家帮助下
思维短缺
[专家分：0] 发布于 2006-06-16 17:13:00
procedure TForm1.N3Click(Sender: TObject);
begin
form1.SaveDialog1.Execute; //保存文件
form1.Memo1.Lines.SaveToFile(form1.SaveDialog1.FileName); //把memo1中的内容保存到XX文件中
if RightStr(form1.SaveDialog1.FileName,4)<>'.txt' then
form1.SaveDialog1.FileName:=form1.SaveDialog1.FileName+'.txt';
end;
end.
以上代码是一个保存文本文件的代码。但是运行了老是出错。提示
if RightStr(form1.SaveDialog1.FileName,4)<>'.txt' then 这一句出错。
RightStr是取右边的字符的？
反正就是不知道错那里了。。
begin
form1.SaveDialog1.Execute; //保存文件
form1.Memo1.Lines.SaveToFile(form1.SaveDialog1.FileName); //把memo1中的内容保存到XX文件中
if RightStr(form1.SaveDialog1.FileName,4)<>'.txt' then
form1.SaveDialog1.FileName:=form1.SaveDialog1.FileName+'.txt';
end;
end.
以上代码是一个保存文本文件的代码。但是运行了老是出错。提示
if RightStr(form1.SaveDialog1.FileName,4)<>'.txt' then 这一句出错。
RightStr是取右边的字符的？
反正就是不知道错那里了。。
