1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
N5: TMenuItem;
N6: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s: string;
implementation
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
var
h:hwnd;
begin
Memo1.Text:='';
Memo1.Visible:=true;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if (SaveDialog1.Execute) then
begin
if LastDelimiter('.',SaveDialog1.FileName)=0 then
SaveDialog1.FileName:= SaveDialog1.FileName + '.nk' ;
Memo1.text:= StringReplace(Memo1.text,'м','ч',[rfReplaceAll]);
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
Memo1.text:='Записали!!!';
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
StringReplace(OpenDialog1.FileName,'ч','м',[rfReplaceAll]);
if (OpenDialog1.Execute) then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo1.visible:= true;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
ShowMessage('Автор Измайлов Николай и2-09');
end;
end. |