记事本一输入内容就自动插入日期而且是一直插入，直到满了。

嘻嘻学

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls, Menus,ShellAPI;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     mm1: TMainMenu;
    
12.     film1: TMenuItem;
    
13.     New1: TMenuItem;
    
14.     Open1: TMenuItem;
    
15.     Save1: TMenuItem;
    
16.     N1: TMenuItem;
    
17.     Exit1: TMenuItem;
    
18.     edit1: TMenuItem;
    
19.     Undo1: TMenuItem;
    
20.     N2: TMenuItem;
    
21.     Copy1: TMenuItem;
    
22.     Paste1: TMenuItem;
    
23.     Cut1: TMenuItem;
    
24.     Delete1: TMenuItem;
    
25.     N3: TMenuItem;
    
26.     All1: TMenuItem;
    
27.     N4: TMenuItem;
    
28.     Find1: TMenuItem;
    
29.     Replace1: TMenuItem;
    
30.     N5: TMenuItem;
    
31.     Datetime1: TMenuItem;
    
32.     O1: TMenuItem;
    
33.     Font1: TMenuItem;
    
34.     BackGround1: TMenuItem;
    
35.     Help1: TMenuItem;
    
36.     About1: TMenuItem;
    
37.     mmo1: TMemo;
    
38.     dlgOpen1: TOpenDialog;
    
39.     dlgSave1: TSaveDialog;
    
40.     dlgFind1: TFindDialog;
    
41.     dlgReplace1: TReplaceDialog;
    
42.     dlgFont1: TFontDialog;
    
43.     dlgColor1: TColorDialog;
    
44.     procedure Open1Click(Sender: TObject);
    
45.     procedure Save1Click(Sender: TObject);
    
46.     procedure Undo1Click(Sender: TObject);
    
47.     procedure Cut1Click(Sender: TObject);
    
48.     procedure Copy1Click(Sender: TObject);
    
49.     procedure Paste1Click(Sender: TObject);
    
50.     procedure Delete1Click(Sender: TObject);
    
51.     procedure All1Click(Sender: TObject);
    
52.     procedure Datetime1Click(Sender: TObject);
    
53.     procedure Font1Click(Sender: TObject);
    
54.     procedure BackGround1Click(Sender: TObject);
    
55.     procedure About1Click(Sender: TObject);
    
56.     procedure Find1Click(Sender: TObject);
    
57.     procedure dlgFind1Find(Sender: TObject);
    
58.     procedure Replace1Click(Sender: TObject);
    
59.     procedure dlgReplace1Replace(Sender: TObject);
    
60.   private
    
61.     { Private declarations }
    
62.   public
    
63.     { Public declarations }
    
64.   end;
    
65. 
    
66. var
    
67.   Form1: TForm1;
    
68. 
    
69. implementation
    
70. 
    
71. {$R *.dfm}
    
72. var
    
73.   FileName:String;
    
74. procedure TForm1.Open1Click(Sender: TObject);
    
75. begin
    
76.     dlgOpen1.filter :='文本文档(*.txt)|*.TXT';
    
77. 
    
78. 
    
79.    if  dlgOpen1.Execute then
    
80.    begin
    
81.      FileName:=dlgOpen1.FileName;
    
82.      mmo1.Lines.LoadFromFile(FileName);
    
83.    end
    
84.    else
    
85.       Exit;
    
86. end;
    
87. 
    
88. procedure TForm1.Save1Click(Sender: TObject);
    
89. begin
    
90.       dlgSave1.Filter:= '文本文档(*.txt)|*.TXT';
    
91. 
    
92.       if dlgSave1.Execute then
    
93.       begin
    
94.         FileName:= dlgSave1.FileName+'.txt';
    
95.         mmo1.Lines.SaveToFile(FileName);
    
96.       end;
    
97. end;
    
98. 
    
99. procedure TForm1.Undo1Click(Sender: TObject);
    
100. begin
     
101.     mmo1.Undo;
     
102. end;
     
103. 
     
104. procedure TForm1.Cut1Click(Sender: TObject);
     
105. begin
     
106.    mmo1.CutToClipboard;
     
107. end;
     
108. 
     
109. procedure TForm1.Copy1Click(Sender: TObject);
     
110. begin
     
111.       mmo1.CopyToClipboard;
     
112. end;
     
113. 
     
114. procedure TForm1.Paste1Click(Sender: TObject);
     
115. begin
     
116.       mmo1.PasteFromClipboard;
     
117. end;
     
118. 
     
119. procedure TForm1.Delete1Click(Sender: TObject);
     
120. begin
     
121.    mmo1.ClearSelection;
     
122. end;
     
123. 
     
124. procedure TForm1.All1Click(Sender: TObject);
     
125. begin
     
126.       mmo1.SelectAll;
     
127. end;
     
128. 
     
129. procedure TForm1.Datetime1Click(Sender: TObject);
     
130. begin
     
131.    mmo1.SelText:= DateTimeToStr(Now());
     
132. end;
     
133. 
     
134. procedure TForm1.Font1Click(Sender: TObject);
     
135. begin
     
136.       if dlgFont1.Execute then
     
137.         mmo1.Font:=dlgFont1.Font
     
138.       else
     
139.         Exit;
     
140. end;
     
141. 
     
142. procedure TForm1.BackGround1Click(Sender: TObject);
     
143. begin
     
144.       if dlgColor1.Execute then
     
145.         mmo1.Color:=dlgColor1.Color
     
146.       else
     
147.         Exit;
     
148. end;
     
149. 
     
150. procedure TForm1.About1Click(Sender: TObject);
     
151. begin
     
152.     ShellAbout(Self.Handle,
     
153.         PChar('鱼c编程日记本 V1.0'),
     
154.         PChar('制作人： so、so'),
     
155.         HICON(nil));
     
156. end;
     
157. 
     
158. procedure TForm1.Find1Click(Sender: TObject);
     
159. begin
     
160.       dlgFind1.FindText:=mmo1.SelText;
     
161.       dlgFind1.Execute;
     
162. end;
     
163. 
     
164. procedure TForm1.dlgFind1Find(Sender: TObject);
     
165. var
     
166.   i,j, PosReturn,SkipChars: Integer;
     
167. 
     
168. begin
     
169.   for i:=0 to mmo1.Lines.Count do
     
170.     begin
     
171.       PosReturn:= Pos(dlgFind1.FindText,mmo1.Lines[i]);
     
172.       if PosReturn <> 0 then
     
173.       begin
     
174.         SkipChars:=0;
     
175.         for j:=0 to i-1 do
     
176.         SkipChars:= SkipChars + Length(mmo1.Lines[j]);
     
177.         SkipChars:= SkipChars + (i*2);
     
178.         SkipChars:= SkipChars + PosReturn - 1;
     
179. 
     
180.         mmo1.SetFocus;
     
181.         mmo1.SelStart:= SkipChars;
     
182.         mmo1.SelLength:=Length(dlgFind1.FindText);
     
183.         Break;
     
184.       end;
     
185.     end;
     
186. 
     
187. end;
     
188. 
     
189. procedure TForm1.Replace1Click(Sender: TObject);
     
190. begin
     
191.     dlgReplace1.ReplaceText:=mmo1.SelText;
     
192.     dlgReplace1.Execute;
     
193. end;
     
194. 
     
195. procedure TForm1.dlgReplace1Replace(Sender: TObject);
     
196. var
     
197.       SelPos:Integer;
     
198. begin
     
199.     with TReplaceDialog(Sender) do
     
200.     begin
     
201.       SelPos := Pos(FindText,mmo1.Lines.Text);
     
202.       if SelPos > 0 then
     
203.       begin
     
204.          mmo1.SelStart := SelPos - 1;
     
205.          mmo1.SelLength:= Length(FindText);
     
206.          mmo1.SelText := ReplaceText;
     
207.       end
     
208.       else
     
209.         MessageBox(0,'抱歉找不到需要替换的文件！','通知',MB_OK or MB_ICONWARNING);
     
210.     end;
     
211. end;
     
212. 
     
213. end.

复制代码

发不了图、、、

牡丹花下死做鬼

不会delphi

嘻嘻学

牡丹花下死做鬼 发表于 2014-8-4 10:18
不会delphi

好吧、、

qqqxx

看看那

2002wmj

谢谢，非常有帮助！