Помогите написать программу, игра крестики-нолики, в делфи

[AgaVik]

Программа должна реализовывать игру «Крестики-нолики» с размером поля не менее 15х15. Побеждает игрок, у которого выстроено в ряд 5 крестиков или ноликов. Предусмотреть возможность игры человек-человек и (или) человек-компьютер. Вести статистику игр пользователя.

[TaLadno]

И в чем же помощь нужна?

[AgaVik]

Я вообще не знаю программу делфи, а курсовую написать надо.
помощь нужна с нуля, что добавлять на форму и тд

[TaLadno]

Не знаете?
Вот и отлично, у вас есть хороший шанс узнать "программу" Delphi немного ближе

Даже на этом форуме материалов навалом, чтобы решить эту простенькую задачку

[AgaVik]

Просто времени очень мало(((

[TaLadno]

Вы же даже не пробовали, это во-первых.
А во-вторых - времени у вас еще как минимум год, это если сами хотите разобраться

Если свое время вы цените и тем более его нет - раздел фриланс полностью покрывает ваше "времени очень мало"

[Stilet]

Начать можно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

			{ TForm1 }

      TForm1 = class(TForm)
						StringGrid1: TStringGrid;
						procedure FormCreate(Sender: TObject);
						procedure FormResize(Sender: TObject);
						procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
									Shift: TShiftState; X, Y: Integer);
      private
            { private declarations }
            procedure Comp;
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  With StringGrid1 do begin
    Align:=alClient;
    FixedCols:=0;FixedRows:=0;
    RowCount:=15; ColCount:=RowCount;
    Font.Size:=14;
	end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  With StringGrid1 do begin
    DefaultColWidth:=Width div ColCount;
    DefaultRowHeight:=Height div RowCount;
	end;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
			Shift: TShiftState; X, Y: Integer);
var c,r:integer;
begin
      With TStringGrid(Sender) do begin
        MouseToCell(x,y,c,r);
        Cells[c,r]:='X';
			end;
      comp;
end;

procedure TForm1.Comp;
var i,j,q,w:integer;
begin
 With StringGrid1 do begin

    i:=Random(RowCount); q:=i;
    j:=Random(ColCount); w:=j;
   while Cells[i,j]<>'' do begin
     inc(i); if i>=ColCount then begin i:=0;inc(j); end;
     if j>=RowCount then begin
       i:=q; j:=w;
       while Cells[i,j]<>'' do begin
         dec(i); if i<0 then begin i:=ColCount-1;dec(j); end;
         if j<0 then begin
           ShowMessage('Здаюсь'); exit;
   			end;
   		end;
		 end;
	 end;

   Cells[i,j]:='O';
 end;
end;

end.

Скетч за пять минут.