Разработка приложения "Базовые логические операции"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Caption, sl[i] ) > 0 then
if sl.Count=i+1 then
begin
Form4.Show;
break;
end
else
if pos (Оценка,sl[i+1])>0 then
showmessage(Оценка уже получена)
else
begin
Form3.Show;
break;
end;;.
Листинг программы (Unit6).Unit6;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls;
TForm6 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
XPManifest1: TXPManifest;
Label1: TLabel;
Label2: TLabel;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form6: TForm6;Unit2, Unit7;
{$R *.dfm}TForm6.Button4Click(Sender: TObject);.show;;TForm6.Button1Click(Sender: TObject);.show;.Panel1.Show;.Caption:=Создание;.Panel2.Hide;.Panel3.Hide;;TForm6.Button2Click(Sender: TObject);.show;.Caption:=Редактирование;.Panel2.Show;.Panel1.Hide;.Panel3.Hide;;TForm6.Button3Click(Sender: TObject);.Show;.Panel3.Show;.Caption:=Просмотр;.Panel1.Hide;.Panel2.Hide;;.
Листинг программы (Unit7).Unit7;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, XPMan;
TForm7 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Panel1: TPanel;
Label2: TLabel;
Panel2: TPanel;
Edit2: TEdit;
Memo2: TMemo;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Button3: TButton;
XPManifest1: TXPManifest;
Panel3: TPanel;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
Memo3: TMemo;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
f1:string;
{ Public declarations }
end;
Form7: TForm7;Unit6;
{$R *.dfm}TForm7.Button1Click(Sender: TObject);:Textfile;Edit1.Text= then(Введите номер группы!)
else
begin
AssignFile(f,spiski\+Edit1.Text+.txt);
ReWrite(f);
Writeln(f,Memo1.Text);
Closefile(f);
Showmessage(Группа успешно создана);
Edit1.Clear;
form6.show;
form7.Close;
end;;TForm7.Button2Click(Sender: TObject);:Textfile;
if Edit2.Text= then(Введите номер группы!)
else
begin
DeleteFile(spiski\+f1+.txt);
AssignFile(f,spiski\+Edit2.Text+.txt);
ReWrite(f);
Writeln(f,Memo2.Text);
Closefile(f);
Showmessage(Группа успешно редактирована);
Edit1.Clear;
form6.show;
form7.Close;
end;;TForm7.Button3Click(Sender: TObject);:Textfile;: string[80];Edit2.Text= then(Введите номер группы!)
else
begin
Memo2.Clear;
Memo2.Show;
Label4.Show;
f1:=Edit2.Text;
Button2.Show;
AssignFile(f,spiski\+Edit2.Text+.txt);
Reset(f);
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
Memo2.Lines.Add(buf); // добавить строку в поле Memo1
end; // закрыть файл
CloseFile(f);
end;;TForm7.Button4Click(Sender: TObject);:Textfile;: string[80];.Clear;.Show;.Show;Edit3.Text= then
ShowMessage(Введите название группы!)
else
begin(f,spiski\+Edit3.Text+.txt);(f);
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
Memo3.Lines.Add(buf); // добавить строку в поле Memo1
end; // закрыть файл
CloseFile(f);; end;TForm7.FormShow(Sender: TObject);.Memo1.Clear;.Edit1.Clear;.Edit2.Clear;.Memo2.Clear;.Memo3.Clear;.Edit3.Clear;;.