unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit2,unit3,Menus, StdCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
OD1: TOpenDialog;
SD1: TSaveDialog;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Memo1: TMemo;
ListBox1: TListBox;
N10: TMenuItem;
Label1: TLabel;
Label2: TLabel;
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var nfile:string;
{$R *.dfm}

procedure TForm1.N10Click(Sender: TObject); //очистить
begin
memo1.Clear;
listbox1.Clear;
form2.Memo1.Clear;
form2.ListBox1.Clear;
end;

procedure TForm1.N2Click(Sender: TObject); //создать
var f:textfile;
begin
if sd1.Execute then
begin
nfile:=sd1.FileName;
assignfile(f,nfile);
rewrite(f);
closefile(f);
end; //Создать


end;

procedure TForm1.N3Click(Sender: TObject);//открыть
var f:textfile;
begin
if od1.Execute then
nfile:=od1.FileName;
memo1.Lines.LoadFromFile(nfile);
end; //открыть

procedure TForm1.N4Click(Sender: TObject); //сохранить
var f:textfile;
begin
if sd1.Execute then
nfile:=sd1.FileName;
memo1.Lines.SaveToFile(nfile);
end;



procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N7Click(Sender: TObject);
var k,i:integer;
a:Tm;
f:textfile;
begin
form2.memo1.clear;
if nfile='' then
if od1.Execute then
nfile:=od1.FileName
else exit;
assignfile(f,nfile);
kolich_zifr_v_stroke(f,a,k);
form2.Show;
for i:=1 to k do
form2.Memo1.Lines.Add(inttostr(i)+'строка: '+inttostr (a[i])+' цифр');

end;

procedure TForm1.N8Click(Sender: TObject);
var i,n,k:integer;
masst:tmas;
f:textfile;

begin
if nfile='' then
if od1.execute then
nfile:=od1.filename
else
exit;
assignfile(f,nfile);
n:=strtoint(inputbox('Ввод','Введите длину слова',''));
massiv_slov(f,masst,k,n);
if k=0 then
showmessage('Слов с длиной '+inttostr(n)+' нет')
else
begin
form2.Show;
form2.ListBox1.Show;
for i:=1 to k do
form2.ListBox1.Items.Add(masst[i]);
end;
end;

procedure TForm1.N9Click(Sender: TObject);
var f2,f:textfile;
nfile2,s:string;

begin

if od1.execute then
nfile:=od1.filename
else
exit;
assignfile(f,nfile);

if nfile2='' then
if od1.execute then
nfile2:=od1.filename
else
exit;
assignfile(f2,nfile2);
udal__pustuh_strok(f,f2);
reset(f2);
while not eof(f2) do
begin
readln(f2,s);
ListBox1.Items.Add(s);
end;

closefile(f2);

end;

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.