Листинг 9. Текст файла проекта Lab4.dpr

program Lab5;

uses
Forms,
Graphs in 'Graphs.pas' {GraphForm} ;

begin
Application.initialize ;
Application.CreateForm(TGraphForm, GraphForm);
Application.Run;
end.

Листинг 10. Текст главного модуля Graphs.pas

unit Graphs;

Interface

uses
Windows, Messages, SysUtiis, Classes, Graphics, Controls, Forms, Dialogs, Grids, ComCtrls, StdCtrls;

type
TGraphForm = class(TForm)
PageCcntrol: TPageControl;
TabSheetlnput: TTabSheet;
TabSheetlnfo: TTabSheet;
TabSheetSearch: TTabSheet;
StringGridRibs: TStringGrid;
ButtonInsert: TButcon;
ButtonDelete: TButton;
ButtcnDeleteAll: TButton;
ButtonExit: TButton;
GroupBoxIncidency: TGroupBox;
GroupBoxInfo: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
LabelVertexCount: TLabel;
LabelRibCount: TLabel;
LabelWeightSum: TLabel;
StringGridAdjacency: TStringGrid;
Label7: TLabel;
EditStart: TEdit;
EditFlnish: TEdit;
Label8: TLabel;
ButtonFind: TButton;
Label9: TLabel;
MemoResults: TMemo;
StatusBar: TStatusBar;
CheckBoxOrientated: TCheckBox;
procedure ButtcnExitClick[Sender: TObject);
procedure FormCreete [Sender: TObject);
procedure StringGridRibsSetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String); procedure ButtonInsertClick{Sender: TObject);
procedure ButtonDeleteClick (Sender ; TObject);
procedure ButtcnDeleteAllClick (Sender : TObject);
procedure PageControlChange (Sender: TObject):
procedure ButtonFindClick (Sender: TObject);
private
S: Integer; // Количество вершин в матрице смежности
w: array of array of double; // Матрица смежности (веса)
procedure CheckRows; {Установить оптимальное количесво ребер в таблице ребер}
end;

<== попередня сторінка	\|	наступна сторінка ==>
Листинг 5. Текст файла проекта Lab3.dpr	\|	Interface

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.003 сек.