BigProblem bei XXO(TicTACToe)Zufallssetzung *Bitte helfen*

[Ratte]

Hi,

ein paar Sachen hab' ich gefunden:

Delphi-Quellcode:

procedure TForm1.Stufe11Click (Sender: TObject);
var
  i : integer;
  senderImage : TImage;
  PX : Integer;
  PY : Integer;
  TMP : string;
begin
  for i := 0 to 8 do begin
  (FindComponent ('ImageK' + IntToStr (i)) as TImage).Visible := True ; //ist so besser
  tmp := IntToStr( senderImage.Tag );//senderimage hat keinen definierten wert, wenn du das Image das meinst, das Sender ist, musst du (Sender as TImage) schreiben; wozu ist tmp?
  if ( GameBoard[ pX, pY ] = ftNone ) then        //px, py haben keinen wert
    begin
      if ( bMovePlayerX ) then
      begin
        senderImage.Picture := ImageX.Picture;          
        GameBoard[random(2),random(2)]:= ftX ;
      end
      else
      begin
      senderImage.Picture := ImageO.Picture;
      GameBoard[ pX, pY ] := ftO;             // wie oben
      end;
    end;
end;
end;

Ratte