Виселица

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Zapolnenie;
 
  private
  public
  end;
 
var
  Form1 : TForm1;
    sch : Integer;
    strl : TStringList;
    Z, ZT : String;
 
implementation
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sch := 0;
  Button1.Click;
end;
 
 
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
  StringGrid : TStringGrid;
  C : TCanvas;
begin
  StringGrid := Sender as TStringGrid;
  C := StringGrid.Canvas;
  C.Font := StringGrid.Font;
  if (ARow >= StringGrid.FixedRows) and (ACol >= StringGrid.FixedCols) then
    C.Brush.Color := StringGrid.Color
  else C.Brush.Color := StringGrid2.Color;
  If ActiveControl = Sender then //выкл выдел
    if (gdSelected in State) then
    begin
      C.Font.Color := 0;
      C.Brush.Color := StringGrid1.Color;
    end;
  C.FillRect(Rect);
  C.TextOut(Rect.Left+2,Rect.Top+2, StringGrid.Cells[ACol, ARow]);
end;
 
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);     //очистка
begin
 strl.Free;
end;
 
 
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  sim:char;   //выбранный символ
  i,j:integer;  //для циклов
  ugStr:String;  //угаданные буквы
begin
 
  if length(StringGrid1.Cells[ACol,ARow])>0 then
  begin
    sim:= StringGrid1.Cells[ACol,ARow][9];
    sch := sch+1;
  end;
  {проверка}
 
  if pos(sim,Z)>0 then            //записывает в SG2 если угадал
  Begin
      for i:=1 to length(Z) do        //пробегается по слову
      Begin
             if Z[i]=sim then
             Begin
                 StringGrid2.Cells[i-1,0]:=sim;  //соответсв. записывает в нужную яч
             end;
         end;
      end;
 
      for i:=0 to StringGrid2.ColCount do
      Begin
        ugStr:=ugStr+StringGrid2.Cells[i,0];
        for j:=length(ugStr) downto 1 do
        Begin
          if pos(' ',ugStr) > 0 then delete(ugStr,pos(' ',ugStr),1);
        end;
      end;
  if sch=12 then
  begin
     if MessageDlg('Вы проиграли виселице. Начать игру заново?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then
     begin
        Button1.Click;
        Button1.SetFocus;
     end;
  end;
  if ugStr=ZT then
  Begin
      ShowMessage('Вы победили!');
      ugStr := '';
  end;
  StringGrid1.Cells[ACol,ARow]:='';
 
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
    i, j : Integer;
begin
 
    sch := 0;
    zapolnenie;
    i := 1;
    Randomize;
    While  odd(i)  do i:= Random(strl.Count-1);        //нечет - вопрос, чет - ответ
    Label1.Caption := strl.Strings[i];
    Z := (strl.Strings[i+1]);                          //ответ
    ZT := Z;                                           //oтвет без пробелов
    StringGrid2.ColCount := length(strl.Strings[i+1]);   //колво ячеек сколько символов в ответе
    StringGrid2.Width := length(strl.Strings[i+1])*StringGrid2.DefaultColWidth+15; //ширина
    for i := 0 to StringGrid2.ColCount do StringGrid2.Cells[i,0] := '';
    for j := length(ZT) downto 1 do
     if pos(' ',ZT) > 0 then Delete(ZT,pos(' ',ZT),1);
end;
 
 
 
procedure TForm1.zapolnenie;
   var i, j, k : Integer;
begin
     k := 192;
     for j := 0 to 3 do  Begin
        for i := 0 to 7 do StringGrid1.Cells[i,j] := '        '+chr(i+k);
        k := k+8;
     end;
     strl := TStringList.Create;  //контейнер для хранения строк
     strl.LoadFromFile('D:\HMRusBase.txt');
     Randomize;  //генератор случайных значений
end;
 
 
 
procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  Var
    StringGrid: TStringGrid;
    C: TCanvas;
begin
  StringGrid := Sender as TStringGrid;
  C := StringGrid.Canvas;
  C.Font := StringGrid.Font;
  if (ARow >= StringGrid.FixedRows) and (ACol >= StringGrid.FixedCols)
    then C.Brush.Color := StringGrid.Color
  else C.Brush.Color := StringGrid2.Color;
  If ActiveControl = Sender then
    if (gdSelected in State) then
    begin
      C.Font.Color := 0;
      C.Brush.Color := StringGrid1.Color;
    end;
  C.FillRect(Rect);
  C.TextOut(Rect.Left+2,Rect.Top+2, StringGrid.Cells[ACol, ARow]);
end;
 
 
 
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=VK_Up) or (Key=VK_Down) or (Key=VK_Left) or (Key=VK_RIGHT) then Key:=VK_Shift;
end;
 
end.