Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

Re: Bitte helfen: WIeos setzt er hier nur 8 stadt 9 feldern?

  Alt 7. Jul 2004, 08:19
Ich nehme mal an, du willst Tic-Tac-Toe spielen.
Wahrscheinlich ist das Property .Tag deiner Images immer auf 0 gesetzt, aber das ist nur eine
Vermutung.
Delphi-Quellcode:
// dein alter Code
tmp := IntToStr( senderImage.Tag );
  if ( length( tmp ) > 1 ) then begin
    pX := StrToInt( copy( tmp, 1, 1 ) );
    pY := StrToInt( copy( tmp, 2, 1 ) );
  end
  else begin
    pX := 0;
    pY := StrToInt( tmp );
  end;

// hier der vereinfachte Code
// die Koordinaten werden einfach & sauber aus dem .Tag geholt
  pX := senderImage.Tag mod 10;
  pY := senderImage.Tag div 10;
// ganz wichtig: Koordinaten prüfen
  Assert((pX >= 0) and (pX < 3), 'pX out of Range' );
  Assert((pY >= 0) and (pY < 3), 'pY out of Range' );
Andreas
  Mit Zitat antworten Zitat