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



Текст работы

var i:integer;

begin

FDIALOG.Caption:='Открытьфайл';

FDIALOG.ShowModal;

if(FDIALOG.getName<>'') then begin

AssignFile(fdata, FDIALOG.getName);

{$I-}Reset(fdata){$I+};

if IOresult<>0 then begin

MessageDlg('Ошибкаприоткрытиифайла!',

mtError, [mbOK], 0);

exit;

end;

i:=1;

SG.RowCount:=2;

while not EOF(fdata) do begin

read(fdata, rec);

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

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

SG.RowCount:=SG.RowCount+1;

inc(i);

end;

SG.Enabled:=true;

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

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

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

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

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

is_open:=true;

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

end;{if(FDIALOG...}

end;

procedure TFMAIN.BMAKEClick(Sender: TObject);

var ser:integer;

begin

GR.Series[0].Clear;

if SG.RowCount<=2 then begin

MessageDlg('В таблице нетданных!', mtWarning, [mbOK],0);

end

else

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

GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]),

SG.Cells[0, ser], clMedGray);

end;

end;

procedure TFMAIN.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TFMAIN.BCLOClick(Sender: TObject);

var i:integer;

begin




Ваше мнение



CAPTCHA