02 семестр / Задачи на Paskal / TextFile. Текстовые редакторы / TextFile. Текстовый редактор / Unit1

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Job1Click(Sender: TObject);

var n,n1,n2,n3:textfile; nf1,nf2,nf3,x,name,o1,o2,o3:string; i,k:integer;
begin
{Создание новых тектовый файлов "ПО ГРУППАМ"}
Memo1.Lines.SaveToFile('Отстающие.txt');
AssignFile(n,'Отстающие.txt');
Reset(n);
k:=1; nf1:=''; nf2:=''; nf3:='';

while not Eof(n) do begin
name:='';
readln(n,x); for i:= 4 to 8 do begin
name:=name+x[i] end;

if ((name+'.txt'=nf1) or (name+'.txt'=nf2) or (name+'.txt'=nf3)) then begin
if name+'.txt'=nf1 then begin writeln(n1,x); name:=''; end;
if name+'.txt'=nf2 then begin writeln(n2,x); name:=''; end;
if name+'.txt'=nf3 then begin writeln(n3,x); name:=''; end;
end else
begin
if k=1 then begin nf1:=name+'.txt'; k:=k+1; assignfile(n1,nf1);
rewrite(n1); writeln(n1,x); name:=''; end else
if k=2 then begin nf2:=name+'.txt'; k:=k+1; assignfile(n2,nf2);
rewrite(n2); writeln(n2,x); name:=''; end else
if k=3 then begin nf3:=name+'.txt'; assignfile(n3,nf3);
rewrite(n3); writeln(n3,x); name:=''; end;
end; end;

closefile(n);
closefile(n1); closefile(n2); closefile(n3);
{*****************************}
Memo1.Lines.SaveToFile('Отстающие.txt');
AssignFile(n,'Отстающие.txt'); Reset(n);
Memo2.Lines[0]:='Список гениальных студентов:';

while not Eof(n) do begin
readln(n,x);
o1:=x[18];
o2:=x[21];
o3:=x[24];
if ((o1='2')and(o2='2'))or((o1='2')and(o3='2'))or((o2='2')and(o3='2'))
then Begin
Memo2.Lines[1]:=x; end;
end;

closefile(n);
Memo2.Lines.SaveToFile('Отстающие.txt');


end;


procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Lines.Clear; // Очищаем строки Memo
Form1.Caption:=('My Editor'); // Востанавливаем заголовок формы.
end;



procedure TForm1.N3Click(Sender: TObject);
begin
IF SaveDialog1.Execute then // Открываем диалоговое окно
IF SaveDialog1.Filename<>'' then
Begin
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
Form1.Caption:=(SaveDialog1.Filename);
// Добавляем имя файла в заголовок.
End;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
If OpenDialog1.Execute Then // Открываем диалоговое окно
If OpenDialog1.Filename<>'' Then
Begin
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
// Загружаем файл в Memo
Form1.Caption:=(OpenDialog1.Filename);
// Добавляем имя файла в заголовок.
End;
end;





procedure TForm1.N5Click(Sender: TObject);
begin
Close; //закрываем программу.
end;






end.