Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13

Label3: TLabel;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure SpinEdit2Change(Sender: TObject); procedure Memo1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure SpinEdit3Change(Sender: TObject); private

{ Private declarations } public res:array[1..100] of tresult; varnum:byte; no:boolean; end;

var frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.Button1Click(Sender: TObject); var f:file of tresult; i:byte; begin if savedialog1.execute then begin assignfile(f,savedialog1.filename); rewrite(f); for i:=1 to varnum-1 do write(f,res[i]); closefile(f) end end;

procedure TfrmMain.Button2Click(Sender: TObject); var f:file of tresult; begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); varnum:=1; while not eof(f) do begin read(f,res[varnum]); inc(varnum) end; memo1.text:=res[1].text; spinedit1.value:=res[1].min; spinedit2.value:=res[1].max; spinedit3.value:=1; closefile(f) end end;

procedure TfrmMain.SpinEdit1Change(Sender: TObject); begin if no then exit; res[spinedit3.value].min:=spinedit1.value; if spinedit2.value

Скачали данный реферат: Plaksin, Zav'jalov, Гарифуллин, Якурин, Веселовский, Куксюк, Юневич.
Последние просмотренные рефераты на тему: экологические рефераты, биология 6 класс сонин, конспект, дипломная работа школа.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13

Поделитесь этой записью или добавьте в закладки