Új hozzászólás Aktív témák

• #1783 asimov007 csendes tag

  Új Válasz 2010-02-25 14:45:21 #1783

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  asimov007

  csendes tag

  Sziasztok!

  Nagyon gyenge vagyok delhpiböl!
  El kéne egy kis segítség!!!!

  Miért száll el azonnal ez a gyengécske program?
  

  unit Unit1;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
  type
  TForm1 = class(TForm)
  StringGrid1: TStringGrid;
  procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  var
  Form1: TForm1;
  Type mat= array [1..10,1..10] of integer;
  function kiert(mat: mat;xpos: integer;ypos: integer;jatekos:char):integer; stdcall; external 'Projekt1.dll';
  implementation
  {$R *.dfm}
  procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
  var mat1:mat;
  vertek:integer;
  jatekos:char;
  i:integer;
  j:integer;
  b:boolean;
  begin
  jatekos:= 'g';
  vertek:= 2;
  while vertek <> 0 do
  begin
  if jatekos = 'g' then
  jatekos:= 'j'
  else
  jatekos:= 'g';
  StringGrid1SelectCell(Sender,acol, arow,b);
  begin
  if jatekos = 'g' then
  StringGrid1.Cells[Acol,Arow]:='O'
  else
  StringGrid1.Cells[Acol,Arow]:='X';
  end;
  end;
  end; // while
  end.
  

Új hozzászólás Aktív témák