Einzelnen Beitrag anzeigen

tankm26

Registriert seit: 18. Sep 2004
Ort: Wentorf
87 Beiträge
 
Delphi 7 Personal
 
#8

Re: Reversi-Probleme mit Funktionen

  Alt 14. Aug 2005, 14:56
ich werd mal drüber nachdenken. Aber ersteinmal muss ich glaube ich mal frische Luft schnappen. Danke schonmal.


so, jetzt wollen wir doch mal schauen...

sollen x und y jeweils die position des aktuell angewählten spielfeldes sein?

dx und dy die Begrenzung für 2.?

soll ich 1. mit if-formeln machen? womit sonst? for-schleifen? und vor allem was soll ich da schreiben?

ojeojeojeojeoje

so in etwa?

Delphi-Quellcode:
 x:=spielfeld.Row;
    y:=spielfeld.Col;
    label1.Caption:=IntToStr(x);
    label2.Caption:=IntToStr(y);
      if feld [(x+1),y]<>dransein then begin
        if feld [(x+2),y]<>dransein then begin
          if feld [(x+3),y]<>dransein then begin
           if feld [(x+4),y]<>dransein then begin
             if feld [(x+5),y]<>dransein then begin
               if feld [(x+6),y]=dransein then begin
                 zahl:=zahl+6;
wie kann ich die function pruefen eigentlichg einbauen?
etwa so?
label3.Caption:=IntToStr(pruefen);
Wieland S.
  Mit Zitat antworten Zitat