Implementation
{$R *.dfm}
procedure TCalc.B1Click(Sender: TObject); //Кнопка 1
begin
Edit1.Text := Edit1.Text + '1';
end;
procedure TCalc.ResertClick(Sender: TObject); //Кнопка сброса поля
begin
Edit1.Text := '';
end;
procedure TCalc.B2Click(Sender: TObject);//Кнопка 2
begin
Edit1.Text := Edit1.Text + '2';
end;
procedure TCalc.B3Click(Sender: TObject); //Кнопка 3
begin
Edit1.Text := Edit1.Text + '3';
end;
procedure TCalc.B4Click(Sender: TObject); //Кнопка 4
begin
Edit1.Text := Edit1.Text + '4';
end;
procedure TCalc.B5Click(Sender: TObject);//Кнопка 5
begin
Edit1.Text := Edit1.Text + '5';
end;
procedure TCalc.B6Click(Sender: TObject);//Кнопка 6
begin
Edit1.Text := Edit1.Text + '6';
end;
procedure TCalc.B7Click(Sender: TObject); //Кнопка 7
begin
Edit1.Text := Edit1.Text + '7';
end;
procedure TCalc.B8Click(Sender: TObject); //Кнопка 8
begin
Edit1.Text := Edit1.Text + '8';
end;
procedure TCalc.B9Click(Sender: TObject);//Кнопка 9
begin
Edit1.Text := Edit1.Text + '9';
end;
procedure TCalc.B0Click(Sender: TObject); //Кнопка 0
begin
Edit1.Text := Edit1.Text + '0';
end;
procedure TCalc.Button10Click(Sender: TObject); //Кнопка сложения
begin
dey:=0; //номер действия
if(num = 0) then //если первое число отсутствуетж
begin
Number1:= StrToFloat(Edit1.Text); //запоминаем число
num:= 1;
Edit1.Text:= ''; //очищаем поле
memo1.Text:=memo1.Text + ' '+ FloattoStr(Number1) + '+'; //дописываем его в лог
end;
end;
procedure TCalc.Button14Click(Sender: TObject); //Кнопка равно
begin
if(num = 1) then //если первое число уже было
begin
Number2:= StrToFloat(Edit1.Text); //запоминаем 2 число
memo1.Text:=memo1.Text + ' '+ FloattoStr(Number2); //дописываем его в лог
memo1.lines.Count
end;
if(dey = 0) then //если сложение
begin
number1:=number1 + number2;//складываем
memo1.Text:=memo1.Text + ' = '+ FloattoStr(Number1) ; //дописываем его в лог
end;
if(dey = 1) then //если минус
begin
number1:= number1 - number2;
memo1.Text:=memo1.Text + ' = '+ FloattoStr(Number1); //дописываем его в лог
end;
if(dey = 2) then //если умножение
begin
number1:= number1 * number2;
memo1.Text:=memo1.Text + ' = '+ FloattoStr(Number1); //дописываем его в лог
end;
if(dey = 3) then //если деление
begin
number1:= number1 / number2;
memo1.Text:=memo1.Text + ' = '+ FloattoStr(Number1);//дописываем его в лог
end;
Edit1.Text:= FloattoStr( number1);
num:=0; //обнуляем
number1:=0; //обнуляем
number2:=0; //обнуляем
end;
procedure TCalc.Button11Click(Sender: TObject); //Кнопка минус
begin
dey:=1;
if(num = 0) then
begin
Number1:= StrToFloat(Edit1.Text);
num:= 1;
Edit1.Text:= '';
memo1.Text:=memo1.Text + ' '+ FloattoStr(Number1) + '-';
end;
end;
procedure TCalc.Button13Click(Sender: TObject); //Кнопка деления
begin
dey:=3;
if(num = 0) then
begin
Number1:= StrToFloat(Edit1.Text);
num:= 1;
Edit1.Text:= '';
memo1.Text:=memo1.Text + ' '+ FloattoStr(Number1) + '/';
end;
end;
procedure TCalc.Button12Click(Sender: TObject); //Кнопка умножения
begin
dey:=2;
if(num = 0) then
begin
Number1:= StrToFloat(Edit1.Text);
num:= 1;
Edit1.Text:= '';
memo1.Text:=memo1.Text + ' '+ FloattoStr(Number1) + '*';
end;
end;
procedure TCalc.bClerClick(Sender: TObject);//Кнопка очистки
begin
number1:=0;
number2:=0;
Edit1.Text:= '';
end;
end.
Отчет «Базы данных»
unit db;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
End.
Отчет listView
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text <> '' then
Listview1.Items.Add.Caption:= edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listView1.Items.Delete(ListView1.ItemIndex);
end;
end.
Отчет TreeView
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Mynode :TTreeNode;
x:integer;