Рефераты / Физика /

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

ReWrite (f); For i:=1 To nS Do Begin For j:=1 To mS Do Write(f,Sheme[i,j,1]:4); Writeln(f); End; For i:=1 To nS Do Begin For j:=1 To mS Do Write(f,EDS[i,j]:5:2,' '); Writeln(f); End; For i:=1 To nS Do Begin For j:=1 To mS Do Write(f,Res[i,j]:5:2,' '); Writeln(f); End; Close(f); End;

Procedure TMyApp.SaveShemeAs; Var D: PFileDialog; FileName: String[79]; W: PWInDow; C:wOrd; Begin D:= New(PFileDialog, Init('*.SHM', 'Выбор файла', ShemeName, fDokButton, 100)); C:= Desktop^.ExecView(D); D^.GetFileName(ShemeName); Dispose(D, Done); If ShemeName='' Then exit; SaveSheme; ShemeWInDow^.Title:=NewStr('Схема '+ShemeName); ShemeWInDow^.DrawView; End;

Procedure TMyApp.HlpWInDow; Var W: PWInDow; Begin W:= PWInDow(ValidView(New(PFileWInDow,Init(HelpName)))); W^.HelpCtx:= hcMenu30; If W <> Nil Then Desktop^.Insert(W); End;

Procedure TMyApp.NewSheme; Var R:TRect; c:wOrd; Begin If Exist And Changed Then Begin R.Assign((Size.X-CurrentFont^.Width*50) Div 2,(Size.Y- CurrentFont^.Height*10) Div 2, (Size.X+CurrentFont^.Width*50) Div 2,(Size.Y+ CurrentFont^.Height*10) Div 2); c:=MessageBoxRect(R, 'В текущую схему внесены изменения с момента последнего '+ 'сохранения, которые будут потеряны. Хотите ли Вы сохранить текущую '+ 'схему?',Nil,mfYesNoCancel+mfConfirmation); Case c Of cmYes:If ShemeName<>'' Then SaveSheme Else SaveShemeAs; cmCancel:Exit; End; End; If Not Exist Then Begin DeskTop^.GeTextent(R); ShemeWInDow:=New(PShemeWIn,Init(R)); DeskTop^.Insert(ShemeWInDow);End; ShemeName:=''; DisposeStr(ShemeWInDow^.Title); ShemeWInDow^.Title:=NewStr('Схема без имени'); Changed:=False; InitSheme(Sheme); ShemeWInDow^.DrawView; End;

Procedure TMyApp.About; Begin MessageBox('Обсчет разветвленных цепей. Ver.1.0.',Nil, mfInFormation+mfOkButton); End;

Procedure TMyApp.ReCounte; Begin Abstract;{This method must be overriden} End; END.


Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ