Delphi5实现鱼C记事本程序（TRichEdit版）

原创

已于 2024-08-05 11:01:55 修改

· 951 阅读

10 ·

版权

文章标签：

#开发语言 #Delphi

于 2024-08-05 10:55:58 首次发布

效果图

鱼C记事本程序

程序图标

Delphi5的程序图标需要ICO后缀名的文件，已经上传到优快云，可以用一下。

在这里插入图片描述

有什么快捷生成ICO文件的方法，可以在评论区分享一下噢，谢谢！！

MainMenu菜单组件

在这里插入图片描述

TRichEdit 组件

在 Delphi 5 中，TRichEdit 组件是一个用于显示和编辑格式化文本的组件。它提供了比标准的多行文本编辑控件（如 TMemo）更丰富的文本处理能力，包括字体样式（如粗体、斜体、下划线）、颜色、段落格式等。TRichEdit 组件基于 Windows 的 Rich Edit 控件，因此它支持 Windows Rich Text Format (RTF) 格式的文本。

TOpenDialog组件

显示一个标准的“打开文件”对话框，让用户选择一个或多个文件。

TSaveDialog组件

在Delphi 5中，TSaveDialog组件是一个标准的文件保存对话框，它允许用户选择一个文件位置并输入文件名以保存文件。这个组件是基于Windows的通用文件对话框API构建的，提供了丰富的配置选项，如文件过滤器、默认扩展名、初始目录等。

Filter属性：定义对话框中显示的文件类型过滤器。你可以指定多个过滤器，每个过滤器由描述和对应的文件扩展名组成，例如文本文件(*.txt)|*.txt。

在这里插入图片描述

功能-文件

注意一下TOpenDialog、TSaveDialog组件的Filter即可。

鱼C记事本——文件

{实现 文件 功能}
{文件-新建}
procedure TForm1.N2Click(Sender: TObject);
//清除当前文本框的内容即可，后续就是打开和保存操作了
begin
  mmo1.clear;
end;

{文件-打开}
procedure TForm1.O3Click(Sender: TObject);
//打开文件对话框
//选择文件
//加载文件,显示文件
begin
  dlgOpen1.Filter:='文本文档(*.txt)|*.TXT';
  if dlgOpen1.Execute then  设置文件过滤器
  begin
    filename:= dlgOpen1.FileName;
    mmo1.Lines.LoadFromFile(filename);
  end
  else
    Exit;
end;

{文件-保存}
procedure TForm1.O2Click(Sender: TObject);
//打开文本保存对话框
//自定义文件名
//将文本输入框的文本保存到文件名
begin
  dlgSave1.Filter:='文本文档(*.txt)|*.TXT';
  if dlgSave1.Execute then
  begin
    filename:=dlgSave1.FileName+'.txt';
    mmo1.Lines.SaveToFile(filename);
  end
  else
    Exit;
end;

{文件-退出}
procedure TForm1.E2Click(Sender: TObject);
begin
  close;
end;