Code:
procedure TFmain.btnBEWAARPUNTENClick(Sender: TObject);
var
varMessage: String;
varRijGift: Integer;
varRijTotaal: Integer;
begin
// controleren of alle waardes zijn ingevuld.
if EDITSpeler1.Text = '' then
begin
QuestionDlg('FOUT', 'Je kan niet bewaren. ' +#13+
'Alle waardes zijn niet ingevuld.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
EDITSpeler1.SetFocus;
EDITSpeler1.SelectAll;
exit;
end;
if EDITSpeler2.Text = '' then
begin
QuestionDlg('FOUT', 'Je kan niet bewaren. ' +#13+
'Alle waardes zijn niet ingevuld.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
EDITSpeler2.SetFocus;
EDITSpeler2.SelectAll;
exit;
end;
if EDITSpeler3.Text = '' then
begin
QuestionDlg('FOUT', 'Je kan niet bewaren. ' +#13+
'Alle waardes zijn niet ingevuld.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
EDITSpeler3.SetFocus;
EDITSpeler3.SelectAll;
exit;
end;
if EDITSpeler4.Text = '' then
begin
QuestionDlg('FOUT', 'Je kan niet bewaren. ' +#13+
'Alle waardes zijn niet ingevuld.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
EDITSpeler4.SetFocus;
EDITSpeler4.SelectAll;
exit;
end;
// controleren of de som van min en plus altijd 0 is.
if StrToInt(EDITSpeler1.Text) + StrToInt(EDITSpeler2.Text) +
StrToInt(EDITSpeler3.Text) + StrToInt(EDITSpeler4.Text) <> 0 then
begin
QuestionDlg('FOUT', 'Je kan niet bewaren. ' +#13+
'Som van getallen is niet 0.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
exit;
end;
// blokkeer input
btnSPELGEDAAN.Enabled:= false;
ChBoxMIZERIE.Enabled:= false;
ChBoxABONDANCE.Enabled:= false;
ChBoxTROEL.Enabled:= false;
ChBoxRONDEPAS.Enabled:= false;
btnBEWAARPUNTEN.Enabled:= false;
EDITSpeler1.Enabled:= false;
EDITSpeler2.Enabled:= false;
EDITSpeler3.Enabled:= false;
EDITSpeler4.Enabled:= false;
// vraag bewaarbevestiging
varMessage:= 'Gift ' + IntToStr(varGift) +':';
if (ChBoxTROEL.Checked) then
begin
varMessage:= varMessage + ' Troel';
end;
if (ChBoxRONDEPAS.Checked) then
begin
varMessage:= varMessage + ' Dubbel';
end;
If QuestionDlg ('KEUZE !',varMessage + #13 + 'Gegevens opslaan?' + #13 + '',
mtConfirmation,[mrYes,'OK', mrNo, 'Annuleren'],'') = mrYes then
begin
if (varGift <= varMaxGift) then
begin
// bewaar => pas de grid aan
varRijGift:= (varGift * 2) - 1;
varRijTotaal:= (varGift * 2);
// de score van deze gift
StringGrid1.Cells[1, varRijGift]:= EDITSpeler1.Text;
StringGrid1.Cells[2, varRijGift]:= EDITSpeler2.Text;
StringGrid1.Cells[3, varRijGift]:= EDITSpeler3.Text;
StringGrid1.Cells[4, varRijGift]:= EDITSpeler4.Text;
// de nieuwe totaal score
varSpeler1Totaal := varSpeler1Totaal + StrToInt(EDITSpeler1.Text);
varSpeler2Totaal := varSpeler2Totaal + StrToInt(EDITSpeler2.Text);
varSpeler3Totaal := varSpeler3Totaal + StrToInt(EDITSpeler3.Text);
varSpeler4Totaal := varSpeler4Totaal + StrToInt(EDITSpeler4.Text);
StringGrid1.Cells[1, varRijTotaal] := IntToStr(varSpeler1Totaal);
StringGrid1.Cells[2, varRijTotaal] := IntToStr(varSpeler2Totaal);
StringGrid1.Cells[3, varRijTotaal] := IntToStr(varSpeler3Totaal);
StringGrid1.Cells[4, varRijTotaal] := IntToStr(varSpeler4Totaal);
// om te scrollen
// -> hier de code ...
// maak nieuwe gift beschikbaar
varGift:= varGift + 1;
Label1.Caption:= 'Gift ' + IntToStr(varGift) + ' van ' + IntToStr(varMaxGift) + '.';
btnSPELGEDAAN.Enabled:= true;
ChBoxMIZERIE.Enabled:= true;
ChBoxMIZERIE.Checked:= false;
ChBoxABONDANCE.Enabled:= true;
ChBoxABONDANCE.Checked:= false;
ChBoxTROEL.Enabled:= true;
ChBoxTROEL.Checked:= false;
ChBoxRONDEPAS.Enabled:= true;
ChBoxRONDEPAS.Checked:= false;
EDITSpeler1.Text:='';
EDITSpeler2.Text:='';
EDITSpeler3.Text:='';
EDITSpeler4.Text:='';
end
else
begin
// GEDAAN!
varGift := varMaxGift;
QuestionDlg('INFO', 'Het zit er weer op! ' +#13+
'Er is een winnaar.',mtInformation, [mrOk, 'DRUK HIER OP <--- '], '');
end;
end
else
begin
ChBoxMIZERIE.Enabled:= true;
ChBoxABONDANCE.Enabled:= true;
ChBoxTROEL.Enabled:= true;
ChBoxRONDEPAS.Enabled:= true;
btnBEWAARPUNTEN.Enabled:= true;
EDITSpeler1.Enabled:= true;
EDITSpeler2.Enabled:= true;
EDITSpeler3.Enabled:= true;
EDITSpeler4.Enabled:= true;
end;
end;
Bookmarks