Категория
Информатика
Тип
реферат
Страницы
6 стр.
Дата
03.06.2014
Формат файла
.html — Html-документ
Архив
1030663.zip — 3.6 kb
  • razrabotka-programmy-predstavlenija-tablichnyx-dannyx-v-vide-diagrammy-prjamougolnikov_1030663_1.html — 10.68 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

if is_open then begin

CloseFile(fdata);

for i:=1 to SG.RowCount-1 do

SG.Rows[i].Clear;

GR.Series[0].Clear;

SG.Cells[0,1]:=''; SG.Cells[1,1]:='';

SG.RowCount:=2;

SG.Enabled:=false;

SG.Enabled:=false; EVAL.Enabled:=false;

GR.Enabled:=false; EKEY.Enabled:=false;

BENT.Enabled:=false; BMAKE.Enabled:=false;

BSAV.Enabled:=false; BCLO.Enabled:=false;

FMAIN.Caption:='Представлениетабл. данных прямоугольной диаграммой'

is_open≔false;

BNEW.Enabled:=true; BOPEN.Enabled:=true;

end; end;

end.

{ ЛистингфайлаKDialog.pas }

unit KDialog;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TFDIALOG = class(TForm)

Edit1: TEdit;

BOK: TBitBtn;

BCAN: TBitBtn;

procedure BOKClick(Sender: TObject);

procedure BCANClick(Sender: TObject);

private

fname:string;

public

function getName:string;

end;

var

FDIALOG: TFDIALOG;

implementation

function TFDIALOG.getName;

begin

getname:=fname;

end;

{$R *.dfm}

procedure TFDIALOG.BOKClick(Sender: TObject);

begin

fname:=FDIALOG.Edit1.Text;

end;

procedure TFDIALOG.BCANClick(Sender: TObject);

begin

fname:='';

end;

end.

{ ЛистингфайлаKurs.dpr }

program Kurs;

uses




Ваше мнение



CAPTCHA