Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Nog een klein vraagje!!! Delphi!!

R1ddl3r@work
2 antwoorden
  • Ik heb een aantal checkboxen die gecontroleerd moeten worden of deze zijn aangevinkt.
    Nu is het wel te doen als je 3 checkboxen hebt, om deze te controleren. Met de volgende code:
    If Checkbox1.Checked = true and
    If Checkbox2.Checked = true and
    If Checkbox3.Checked = true
    then
    bl@@t
    else
    bl&&t

    Als er een van de Checkboxen nog TRUE is dan moet er een MessageDlg gegeven worden met het bericht dat er nog een checkbox is aangevinkt.

    Indien er geen checkbox is aangevinkt dan is alles OKAY.

    Aangezien ik 30 checkboxen moet controleren of deze wel of niet aangevinkt zijn. Is mijn vraag nu!!!!

    Wie kan er een korte functie / procedure schrijven voor mij.
    Of in ieder geval een hint geven.

    Met vriendelijke groet,


    R1ddl3r
    _________________
    "The agony in my destiny mirrors the solitude of my isolated fears."

    -The R!ddler

    [ Dit Bericht is bewerkt door: R1ddl3r@work op 2002-02-14 14:58 ]
  • Nou nou, dit had je zelf ook kunnen bedenken na m'n laatste post, kwestie van logisch nadenken:

    [code:1:a6a711512e]
    var
    bFound: Boolean;
    iComp: Integer;

    begin
    bFound := False;

    for iComp := 0 to Form1.ComponentCount - 1 do
    if Form1.Components[iComp] is TCheckBox then
    if TCheckBox(Form1.Components[iComp]).Checked = True then begin
    bFound := True;
    break;
    end;

    if bFound then
    MessageBox(Handle, 'Er staat nog een checkbox aangevinkt!', 'Oeps!', MB_OK or MB_ICONINFORMATION);
    end;
    [/code:1:a6a711512e]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.