Delphi做记事本-526互联

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

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;

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