Page 2 of 2 FirstFirst 1 2
Results 16 to 19 of 19

Thread: Stringgrid - Last Row

  1. #16
    Werkt de laatste routine wel om de punten weg te halen?

  2. #17
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685
    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;
    Dit werk.
    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).

  3. #18
    Quote Originally Posted by seghele View Post
    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:
    1. procedure TFmain.btnTERUGClick(Sender: TObject);
    2. var
    3.   varRijGift: Integer;
    4.   varRijTotaal: Integer;
    5. begin
    6.   if varGift <= 1 then exit;
    7.   Dec(varGift);
    8.   varRijGift:= (varGift * 2) - 1;
    9.   varRijTotaal:= (varGift * 2);
    10.  
    11.   // hier lagen we de totalen dus weer af
    12.   varSpeler1Totaal := varSpeler1Totaal - StrToInt(StringGrid1.Cells[1, varRijGift]);
    13.   varSpeler2Totaal := varSpeler2Totaal - StrToInt(StringGrid1.Cells[2, varRijGift]);
    14.   varSpeler3Totaal := varSpeler3Totaal - StrToInt(StringGrid1.Cells[3, varRijGift]);
    15.   varSpeler4Totaal := varSpeler4Totaal - StrToInt(StringGrid1.Cells[4, varRijGift]);
    16.  
    17.   StringGrid1.Rows[varRijGift].Clear; // punten weg
    18.   StringGrid1.Rows[varRijTotaal].Clear; // totaal weg
    19. end;

  4. #19
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Thumbs up

    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.

Page 2 of 2 FirstFirst 1 2

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •