Курсовая работа: Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)
odFile: TOpenDialog;
16
buClose: TButton;
17
procedure buOpenClick(Sender: TObject);
18
procedure buProverkaClick(Sender: TObject);
19
procedure buCloseClick(Sender: TObject);
20
private
21
{ Private declarations }
22
public
23
{ Public declarations }
24
end;
25
26
var
27
Form1: TForm1;
28
29
implementation
30
31
{$R *.dfm}
32
33
procedure TForm1.buOpenClick(Sender: TObject);
34
begin
35
if odFile.Execute then
36
begin
37
Memo1.Lines.Clear;
38
Memo1.Lines.LoadFromFile(odFile.FileName);
39
lbRezultat.Caption:= '';
40
end;
41
end;
42
43
procedure TForm1.buProverkaClick(Sender: TObject);
44
var
45
sFile, sLabelName: string;
46
i, iKol, j: integer;
47
begin
48
sFile:= Memo1.Lines.Text;
49