Werkt de laatste routine wel om de punten weg te halen?
Dit werk.Code:procedure TFmain.btnTERUGClick(Sender: TObject); begin if varGift <= 1 then exit; Dec(varGift); StringGrid1.Rows[(varGift * 2) - 1].Clear; // punten weg StringGrid1.Rows[(varGift * 2)].Clear; // totaal weg end;
De inhoud v.d. laatste 2 rijen worden gewist.
Bij het klikken op btn 'Spel gedaan' kan ik nieuwe punten toevoegen op de juiste rij en er wordt een nieuw totaal gegeven in de volgende (gele) rij.
Dit nieuw totaal klopt natuurlijk niet samen met de score van het aantal gespeelde giften(bovenaan).
Nee, vandaar dat het uiteindelijk ook makkelijker en duidelijker zou zijn om daar compleet nieuwe routines voor te schrijven.
Maar goed... quick and dirty kun je het zo doen:
(uit de losse vuist getikt dus niet getest)
Delphi Code:
procedure TFmain.btnTERUGClick(Sender: TObject); var varRijGift: Integer; varRijTotaal: Integer; begin if varGift <= 1 then exit; Dec(varGift); varRijGift:= (varGift * 2) - 1; varRijTotaal:= (varGift * 2); // hier lagen we de totalen dus weer af varSpeler1Totaal := varSpeler1Totaal - StrToInt(StringGrid1.Cells[1, varRijGift]); varSpeler2Totaal := varSpeler2Totaal - StrToInt(StringGrid1.Cells[2, varRijGift]); varSpeler3Totaal := varSpeler3Totaal - StrToInt(StringGrid1.Cells[3, varRijGift]); varSpeler4Totaal := varSpeler4Totaal - StrToInt(StringGrid1.Cells[4, varRijGift]); StringGrid1.Rows[varRijGift].Clear; // punten weg StringGrid1.Rows[varRijTotaal].Clear; // totaal weg end;
rvk,
Het werkt!
Jouw hoge intelligentie, steun, begrip, inzet, volharding, enz… in een kosteloos kader, mag men in deze huidige egoïstische wereld als een wonder bestempelen.
Oprechte dank in naam van onze club van kaartspelers.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks