Delphi做记事本

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

        1.组件在Dialogs内

           

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

          

           3.需要添加如下组件

                

       4.打开文件代码:

 1 {$R *.dfm}
 2 var
 3   Lujing:String;
 4 procedure TForm1.OpenExecute(Sender: TObject);
 5 begin
 6   OpenDialog1.Filter:='文本文档(*.txt)|(*.TXT)网页(*.html)|(*.html)';
 7   if OpenDialog1.Execute then
 8     begin
 9 
10       Lujing:=OpenDialog1.FileName;
11       Memo1.Lines.LoadFromFile(Lujing);
12     end
13   else
14     Exit;
15 end;

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

                        2.过滤器使用

                    

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

posted on 2023-10-29 10:08  yanglu_51  阅读(40)  评论(0编辑  收藏  举报