Категория
Информатика
Тип
реферат
Страницы
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
Оцените работу
Хорошо  или  Плохо



Текст работы

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

SG.RowCount:=2;

SG.Enabled:=true; EVAL.Enabled:=true;

GR.Enabled:=true; EKEY.Enabled:=true;

BENT.Enabled:=true; BMAKE.Enabled:=true;

BCLO.Enabled:=true; BSAV.Enabled:=true;

BNEW.Enabled:=false; BOPEN.Enabled:=false;

FMAIN.Caption:='Таблица'+FDIALOG.getName;

is_open:=true;

end;{if(FDIALOG...}

end;

procedure TFMAIN.BSAVClick(Sender: TObject);

var i:integer;

begin

seek(fdata, 0);

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

rec.key:=SG.Cells[0, i];

rec.val:=StrToFloat(SG.Cells[1, i]);

write(fdata, rec);

end;

end;

procedure TFMAIN.BENTClick(Sender: TObject);

begin

if (EKEY.Text<>'')and(EVAL.Text<>'')then

begin

try

StrToFloat(EVAL.Text);

except

MessageDlg('Вводитьтолькочисла',mtWarning, [mbOK], 0);

EVAL.Text:='';

exit;

end;{try...}

SG.Cells[0, SG.RowCount-1]:=EKEY.Text;

SG.Cells[1, SG.RowCount-1]:=EVAL.Text;

SG.RowCount:=SG.RowCount+1;

end;{if (EKEY...}

end;

procedure TFMAIN.FormClose(Sender: TObject; varAction: TCloseAction);

begin

if is_open then CloseFile(fdata);

end;

procedure TFMAIN.FormCreate(Sender: TObject);

begin

is_open:=false;

SG.Cells[0,0]:='Имя';

SG.Cells[1,0]:='Значение';

SG.RowCount:=SG.RowCount+1;

end;

procedure TFMAIN.BOPENClick(Sender: TObject);




Ваше мнение



CAPTCHA