Delphi做记事本

一、打开，保存等组件在什么地方

        1.组件在Dialogs内

           

        2.点击组件栏右下箭头后进行搜索

          

           3.需要添加如下组件

                

       4.打开文件代码：

{$R *.dfm}
var
  Lujing:String;
procedure TForm1.OpenExecute(Sender: TObject);
begin
  OpenDialog1.Filter:='文本文档(*.txt)|(*.TXT)网页(*.html)|(*.html)';
  if OpenDialog1.Execute then
    begin

      Lujing:=OpenDialog1.FileName;
      Memo1.Lines.LoadFromFile(Lujing);
    end
  else
    Exit;
end;

            注意：1.过滤器放到判断之前

                        2.过滤器使用

                    

OpenDialog1.Filter:='文本文件(*.txt)|*.txt'; //文本文件(*.txt) 显示在文件类型里，中间用|隔开，|后面代表过滤exe以外的其他类型文件
OpenDialog1.Filter:='文本文件(*.txt)|*.txt|EXECL文件(*.xls)|*.xls';
OpenDialog1.Filter:='支持文件类型(*.png;*.jpg)|*.png;*.jpg'; //显示2个以上的类型，中间用;隔开