[delphi零基础入门]第十一课:记事本程序编写完毕

视频11分钟运行报错的问题 是因为声明了变量类型TSaveTextFileDialog，但没有创建这个savefiledlg的对象。 完成的自定义过程如下 procedure savefiletext(redt1:TRichEdit); var savefiledlg: TSaveTextFileDialog; savefile1:string; begin savefiledlg:=TSaveTextFileDialog.Create(nil); try savefiledlg.Filter:='文本文件(txt文本)|*.txt'; if savefiledlg.Execute then begin savefile1:= savefiledlg.FileName; redt1.Lines.SaveToFile(savefile1); ShowMessage('保存成功') end; finally savefiledlg.Free; end;