Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
29. Jun 2004
nein, funzt auch
weil da ja #0## oder gespiegelt ##0# drinsteckt!
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
29. Jun 2004
Hallo ihr da drausen...
Ihr redet da von "kürzer" und so!
Ich hab mir jetzt mal das Programm von Luckie genommen und die "Gewinnt-Funktion" angepasst!
Sie besteht jetzt nurnoch aus 2 for und 2 if schleifen!!!!!
und damit werden wirklich ALLE in Frage kommenden möglichkeiten getestet, jedoch auch nur die, die wirklich in frage kommen. d.h. keine unnötige prüfung von sinnlosen feldern...
...
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
29. Jun 2004
Um nochmal zu meinem Code zurückzukommen!
function check4(c0,r0,p)
var
i, j, k: Integer;
begom
// Für den eingeworfenen Stein im Feld (c0,r0) prüfen, ob
Forum: Sonstige Fragen zu Delphi
Delphi
by StefanDP,
28. Jun 2004
hi luckie!
ich bin jetzt mal ganz radikal:
mach das alles in EINE prozedur!
alles war du brauchst ist eine weitere information: der ZULETZT gesetzte spielstein!
dnhand diesen spielsteins kannst du dann prüfen ob
- auf einer seite 3 gleiche
- auf einer seite 2 gleiche auf der anderen seite 1 gleicher
("seite" stellvertretend für links/rechts/oben/unten/diagonal