Контрольная работа: Разработка программы представления табличных данных в виде диаграммы прямоугольников

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);