Results 1 to 6 of 6

Thread: For lus

  1. #1

    For lus

    Hallo,
    Aangezien ik deze onderstaande procedure volledig wil begrijpen wil ik even checken of mijn uitleg hieromtrent klopt ?

    Delphi Code:
    1. for i:=1 to 2 do
    2. begin
    3.   radiogroupproducten.Items.append(cinema[i].naam + '=> resterend aantal  plaatsen ' + inttostr(cinema[i].plaatsen) );
    4. end;
    Is het zo dat hier een forlus gemaakt wordt met een cinema zaal die x aantal plaatsen heeft en waarbij de radiogroup gebruikt kan worden om deze plaatsen in vermindering te brengen?

    Alvast bedankt.
    Last edited by GolezTrol; 21-Jan-13 at 00:36.

  2. #2
    Ik denk dat deze code twee radiobuttons toevoegt (aan TRadiogroup), waarbij de captions van die radiobuttons kennelijk het resterende aantal plaatsen in Cinema[1] en Cinema[2] is (of geacht wordt te zijn).

    Ik zie hier geen code om het aantal plaatsen in Cinema[1] of Cinema[2] te verminderen, maar zonder zicht op de gehele code is dat niet met zekerheid te zeggen.

    Bart

  3. #3
    Senior Member Wok's Avatar
    Join Date
    Dec 2002
    Location
    Alkmaar
    Posts
    2,085
    In zou voor het aantal plaatsen geen radiogroup nemen.
    Een Editbox met Updown eraan is gebruikelijker.

    Peter
    10.4.2, Delphi2010, of Lazarus 2.2.0

  4. #4
    Ok, bedankt

    Nog 1 klein laatste vraagje:

    Delphi Code:
    1. procedure TForm1.Button1Click(Sender: TObject);
    2. var i:integer;
    3. begin
    4. keuze:= [B]radiogroupproducten.itemindex +1[/B];
    5. aantal := strtoint(inputbox('Cinema','Geef het aantal personen',''));
    6. if cinema[keuze].plaatsen >= aantal then
    7. begin
    8.   showmessage('Gereserveerd');
    9.   radiogroupproducten.items.Clear;
    10.   cinema[keuze].plaatsen := cinema[keuze].plaatsen - aantal;
    11.   for i:=1 to 2 do
    12.   begin
    13.     radiogroupproducten.Items.append(cinema[i].naam + '=> resterend aantal 87 plaatsen ' + inttostr(cinema[i].plaatsen) );
    14.   end;
    15. end;

    Bij deze procedure moeten we +1 nemen om de code te vervolledigen, maar ik kan er niet goed aan uit waarom dat zo is?

    Nog eens bedankt.
    Last edited by GolezTrol; 21-Jan-13 at 00:37.

  5. #5
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747
    Dat komt, omdat jouw array begint met 1 en niet met 0. Een radiogroupindex begint altijd op 0. Als je zou beginnen met o i.p.v. 1, krijg je een AV.

  6. #6
    1+1=b

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
  •