unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Memo1: TMemo;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N5: TMenuItem;
N6: TMenuItem;
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
Var
sf:string;
{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject); //Сохранить как
begin
if saveDialog1.Execute then
Begin
sf:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(sf);
Form1.Caption:='Form1'+sf;
Memo1.Modified:=false;
end;
end;


procedure TForm1.N3Click(Sender: TObject); //открыть
begin
if Memo1.Modified then
case messagedlg('текст был изменён'+#13+'сохранить?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYes:N2Click(Self);
mrNo: ;
mrCancel:Exit;

end;
if OpenDialog1.Execute then
Begin
sf:=Opendialog1.FileName;
Memo1.Lines.LoadFromFile(sf);
Form1.Caption:='Form1'+sf;
Memo1.Modified:=false;
end;

end;

procedure TForm1.N4Click(Sender: TObject);
begin
if Memo1.Modified then
case messagedlg('текст был изменён'+#13+'сохранить?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYes:N2Click(Self);
mrNo: ;
mrCancel:Exit;
end;
Close;
end;

procedure TForm1.N6Click(Sender: TObject);
Var
f:textfile;
s,s1:string;
kol,i:integer;
begin
Assignfile(f,sf);
Reset(f);
Memo1.Clear;
kol:=0;
while not eof(f) do
Begin
Readln(f,s);

for I := 19 to length(s) do
if s[i]='2' then
kol:=kol+1;
if kol>0 then
Begin
s1:=s+' '+'количество задолжностей'+' ' + inttostr(kol);

Memo1.Lines.Add(s1);
kol:=0;

end;

end;

CloseFile(f);

end;

end.





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