Реферат Особливості роботи в середовищі програмування Delphi

Тема: Курсовые проекты

DrawGrid1. Visible:=false ;. Image1. Visible:=true ;. SpeedButton8. ParentFont:=false ;:=moz ;:=mog ;:=false ;:=false ;:=false ;:=False; begin. DrawGrid1. Visible:=true ;. Image1. Visible:=false ;. SpeedButton8. ParentFont:=true ;:=k ;:=m ;:=true ;:=true;

end ;;

{ставить гру на паузу - т. е перекривет ігрове поле картинкою і зупиняє час}

procedure TMainF. SpeedButton8Click (Sender: TObject);

begin ;;

{вважає час з початку текщуей партії}

procedure TMainF. Timer1Timer (Sender: TObject); clok then begin (ctime) ;. Panels [1]. text:=st1 + IntToStr (ctime);

end ;;

{ствіт гру на паузу - т. е перекривет ігрове поле картинкою і зупиняє час}

procedure TMainF. Pause1Click (Sender: TObject);

begin ;;

{зберігає поточний стан гри в файл}

procedure savve;, j, n: integer ;: Tsav; seve then begin:=false ;. StringGrid1. RowCount:=Form1. StringGrid1. RowCount + 1; ( Enter the name for your save: , Please !!! , named); (Fild, Saving. Sav ); (Fild) ;:=FileSize (Fild) ;:=n; (Fild, 0); not n=0 then begini:=0 to n do begin:=i; (FilD, i); (Fild, sa); sa. neme=named then begin ( The save with this name already exist! , Input another name: , named); sa. neme=named then j:=n + 1 ;;;;; i=n then seek (Fild, FileSize (Fild)); j=n + 1 then seek (Fild, i) ;. neme:=named ;. stepd:=step ;. timed:=ctime; i:=0 to 3 do beginj:=0 to 3 do begin. mas [i, j]:=ar [i, j] ;;; (Fild, asa); (Fild) ;:=true ;;

end;

{завантажує гру з файлу}

procedure lodde;, n, j: integer;, b, k: integer ;: string; (Fild, saving. sav ); (Fild) ;:=FileSize (Fild);. StringGrid1. RowCount:=k; (Fild) ;:=false; (Fild, saving. Sav ); (Fild) ;:=FileSize (Fild); n=0 then exit; (Fild, 0); i:= 0 to n - 1 do begin (Fild, sa) ;. StringGrid1. Cells [0, i]:=sa. neme ;;. ShowModal; (Fild, y1); (FilD, sa); sa. neme lt; gt; then begin:=sa. stepd ;:=sa. timed; i:=0 to 3 do beginj:=0 to 3 do begin [i, j]:=sa. mas [i, j]; [i, j]:=ar [i, j] ;;;:=true ;. StatusBar1. Panels [0]. Text:=st0 + + IntToStr (step) ;. DrawGrid1. Repaint ;. DrawGrid1. Enabled:=true ;; (Fild) ;:=true;

end;

{зберігає поточний стан гри в файл}

procedure TMainF. SpeedButton3Click (Sender: TObject);

begin ;;

{зберігає поточний стан гри в файл}

procedure TMainF. Save1Click (Sender: TObject) ;;;

{завантажує гру з файлу} TMainF. SpeedButton2Click (Sender: TObject) ;;;

{завантажує гру з файлу} TMainF. Load1Click (Sender: TObject) ;;;.

unit OpenF;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, Grids;=class (TForm): TStringGrid ;: TLabel ;: TLabel; StringGrid1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); StringGrid1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1;, y1: integer;

{$ R *. DFM} TForm1. StringGrid1MouseDown (Sender: TObject ;: TMouseButton; Shift: TShiftState; X, Y: Integer) ;. MouseToCell (x, y, x1, y1) ;; TForm1. StringGrid1Click (Sender: TObject) ;;;.

unit Resul;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, StdCtrls;=class (TForm): TStringGrid ;: TLabel;

{Private declarations}

{Public declarations} ;: TForm4;

{$ R *. DFM}.

unit Rules;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,;=class (TForm): TMemo;

{Private declarations}

{Public declarations} ;: TForm3;

{$ R *. DFM}.

[Compiler]

A=1=0=1=1=0=0=1=0=1=1=0=1=0=1=1=1=0=0=0=0= 0=1=0=1=0=1=1=1=WinTypes=Windows; WinProcs=Windows; DbiTypes=BDE; DbiProcs=BDE; DbiErrs=BDE;