Програмування в середовищі Delphi

begin

Form4.Show;

// зчитування даних з файлу №1

if Form3.ComboBox1.Text='Файл  №1' then

begin

f1:='f1.txt';

AssignFile(f,f1);  //звязок між файловою змінною і файлом

Reset(f);      //відкриття файлу

while not eof(f) do

begin

read(f,x,y,x1,y1);      //зчитуємо дані

With Form4.Series1 do

begin

Addxy(x,y,'');       //створення графіка №1

end;

With Form4.series2 do

begin

AddXY(x1,y1,'');        //створення графіка №2

end;

end;

CloseFile(f);

end

else

// зчитування даних з файлу №2

if Form3.ComboBox1.Text='Файл  №2' then

begin

f1:='f2.txt';

AssignFile(f,f1);  //звязок між файловою змінною і файлом

Reset(f);           //відкриття файлу

while not eof(f) do

begin

read(f,x,y,x1,y1);    //зчитуємо дані

With Form4.series1 do

begin

AddXY(x,y,'');          //створення графіка №1

end;

With Form4.series2 do

begin

AddXY(x1,y1,'');      //створення графіка №2

end;

end;

CloseFile(f);

end;

// зчитування даних з файлу №1  для створення окремого графіку

if Form3.ComboBox1.Text='Файл  №1' then

begin

f1:='f1.txt';

AssignFile(f,f1);  //звязок між файловою змінною і файлом

Reset(f);      //відкриття файлу

while not eof(f) do

begin

read(f,x,y,x1,y1);      //зчитуємо дані

With Form4.Series3 do

begin

AddXY(x1,y1,'');        //створення графіка з файлу №1

end;

end;

CloseFile(f);

end

else

// зчитування даних з файлу №2

if Form3.ComboBox1.Text='Файл  №2' then

begin

f1:='f2.txt';

AssignFile(f,f1);  //звязок між файловою змінною і файлом

Reset(f);           //відкриття файлу

while not eof(f) do

begin

read(f,x,y,x1,y1);    //зчитуємо дані

With Form4.series3 do

begin

AddXY(x1,y1,'');      //створення графіка з файлу №2

end;

end;

CloseFile(f);

end;

end; 

procedure TForm2.Choose1Click(Sender: TObject);

begin

Form5.Show;      // налагодження звязку з формою

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.14.Додаток №14 «Головне вікно програми №2»

 Мал №8.14.15. «Головне вікно » 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.15.Додаток  №15 «Вихідний код програми №2 – Unit3»

 

unit Unit3;

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DBCtrls; 

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    ComboBox1: TComboBox;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation 

{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;     // закриття форми

end;

end. 
 
 

8.16.Додаток  №16 «Вибір файлу»

 Мал №8.16.16. «Вибір файлу » 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.17.Додаток  №17 «Вихідний код програми №2 – Unit5»

 

unit Unit5; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls; 

type

  TForm5 = class(TForm)

    Panel1: TPanel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

uses Unit4, Unit1, Unit2; 

{$R *.dfm} 

procedure TForm5.Button2Click(Sender: TObject);

begin

Close;

end; 

procedure TForm5.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then   // застосування компоненти RadioButton

begin

Form4.Chart1.Visible:=True;    // Char 1(Діаграма 1) стає видомою інше не видимою

Form4.Chart2.Visible:=False;

end

else

if RadioButton2.Checked then

begin

Form4.Chart2.Visible:=True;   // Char 2(Діаграма 2) стає видомою інше не видимою

Form4.Chart1.Visible:=False;

end;

Form2.Draw1.Enabled:=True; //Пункт меню Draw доступний

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.18.Додаток  №18 «Вибір графіку»

Мал №8.18.16. «Вибір діаграми » 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.19.Додаток  №19 «Вихідний код програми №1 – Unit4»

unit Unit4; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series; 

type

  TForm4 = class(TForm)

    Chart1: TChart;

    Series1: TBarSeries;

    Series2: TBarSeries;

    Chart2: TChart;

    Series3: THorizBarSeries;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4; 

implementation 

{$R *.dfm} 

end. 
 
 
 
 

8.20.Додаток  №20-21 «Вікно побудови діаграм»

 

     Якщо  активований пункт мені Combine то в результаті появиться така діаграма

Мал №8.20.17. «Діаграма №1 » 
 
 
 
 
 
 
 
 
 
 
 
 

     Якщо  активований пункт мені No то в  результаті в томуж вікні появиться  діаграма такого плану: 

Мал №8.21.18. «Діаграма №2 »

8.22.Додаток  №22 «Вихідний код програми №3 – Unit main»

unit main; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, ActnList, StdActns, ExtActns,Printers; 

type

  TMainForm = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N19: TMenuItem;

    N20: TMenuItem;