Forum: Sonstige Fragen zu Delphi
Delphi
by Jens Schumann,
8. Feb 2004
Ich glaube nicht dass Du das meinst was ich vorgeschlagen habe.
Du hast vorgeschlagen mit For-Schleifen das Spielfeld senkrecht und waagerecht zu durchlaufen.
Das macht mein Vorschlag definitiv nicht.
Da jeder Stein seine Koordinaten kennt, kann sich der Algorithmus innerhalb des Array's von einem Stein zum nächsten Stein bewegen. Das wird durch die Addition der relativen Koordinaten aus ...
Forum: Sonstige Fragen zu Delphi
Delphi
by Jens Schumann,
7. Feb 2004
Hallo Geisi,
ja es gibt einen sehr einfachen Trick.
Gehe von dem zuletzt gesetzten Stein in alle möglichen Richtungen
und zähle die gleichfarbigen. Bist Du bei vier ist das Spiel gewonnen.
Das wäre die Routine
function TForm1.Win2(Stone : TStone) : Boolean;
var
iCnt : Integer;
aStone : TStone;
StoneCount : Integer;