DELPHI 记事本需求分析 10

真的是八股，做一个记事本，可能最多也不需要100行，太麻烦了！

运行记事本

帮助。 帮助这个话题自己看。

这么长，你可以再加一些点。

需求分析请参考XP下的记事本功能

保存时。 取输入文件名的最后四个字符来判断这四个字符是否相同'.txt'相等，如果相等，则用户输入完整的文件名。

如果不相等，则表示用户输入的文件名没有扩展名，您可以自动将其附加到其中。 txt 扩展名。 通过设置文件夹选项，可以隐藏或不隐藏扩展名。

如果您希望通过程序实现它。 只需在保存文件时获取文件名，然后删除扩展名即可。

您需要指定一个路径，如下所示：

shellexecute(handle, nil, pchar(name), nil, pchar(path),sw_show) ;

shellexecute 函数中的第五个对象用于设置道路的路径。

详情请见我的空间备注：

**下面：

在窗体上放置两个按钮，一个用于模拟记事本的备忘录，一个查找对话框和一个替换对话框。

typetform2 = class(tform)

finddialog1: tfinddialog;

replacedialog1: treplacedialog;

button1: tbutton;

button2: tbutton;

memo1: tmemo;

procedure findnotify(sender:tobject);

procedure replacenotify(sender:tobject);

procedure button1click(sender: tobject);

procedure formcreate(sender: tobject);

procedure button2click(sender: tobject);

private

public

end;varform2: tform2;

implementation

procedure : tobject);

beginend;

procedure : tobject);

beginend;

procedure : tobject);

varposreturn:integer;

str:string;

beginstr:=;

posreturn :=pos(,str);

if posreturn<>0 then

begin:=posreturn-1;

length(;

end;end;

procedure : tobject);

begin=findnotify;

replacenotify;

end;procedure : tobject);

varposreturn:integer;

str:string;

beginstr:=;

posreturn :=pos(,str);

if posreturn<>0 then

begin:=posreturn-1;

length(;

;end;end;end.

这取决于您使用哪个控件来实现记事本的控件，tmemo、trichedit 或其他东西，在 tmemo 的情况下，您可以这样做。

procedure : tobject);

varsearchtext:string;

k:integer;

beginsearchtext:=;找到在 edit1 中输入的文本 k：=pos（searchtext，; 查找 searchtext 首次出现的位置。

if k=0 then

showmessage('找不到')

elsebegin

k;=length(searchtext);

这句话非常重要，否则你不会看到被选择的文本结束;

end;Trichedit 提供了 findtext 的方法，可以在帮助部分找到。

我也遇到过这个问题，程序运行的时候，我想从编辑中复制包含中文的内容，但是复制的乱码，你能解决吗？