Results 1 to 8 of 8

Thread: Hamburgers in een memo plaatsen

  1. #1
    Ik heb nog een vraagje waar ik maar geen antwoord op kan vinden:

    Regel 78 tot 84 toont alle hamburgers en hun voorraad in een memo. Dit gebeurt aan de hand van een loop. Stel dat je zou wensen dat bij de 1e klik je de hamburger in de memo te zien kreeg, bij de 2e klik, de eerste en de tweede en bij de 3e klik de memot werd leeggemaakt. Herschrijf de procedure... ? :-)

    Delphi Code:
    1. procedure TForm1.Button6Click(Sender: TObject);
    2. var i:integer;
    3. begin
    4.   memo1.clear;
    5.   for i:=1 to 2 do
    6.     memo1.lines.add(hamburgerlijst[i].naam + ' :' + inttostr(hamburgerlijst[i].voorraad))
    7. end;
    Alvast 1000x bedankt!
    Last edited by GolezTrol; 29-Dec-12 at 10:23.

  2. #2
    Voor ik je voorzie in een kant en klaar antwoord, wil ik je eerst wijzen op het volgende.


    Verder: Met een kant en klaar antwoord kun jij je examen niet maken, en bovendien is het vrijblijvend maken van een ieders huiswerk ook weer niet de grootste uitdaging voor de forumleden.
    De wedervraag is dus: wat heb je geprobeerd, en waar loop je vast?
    1+1=b

  3. #3
    Ok, regels begrepen

    Ik heb geprobeerd om de forlus van 1 to 1 toe te passen en dan bij een nieuwe procedure van een buttonclick 1 to 2 om zo bij elke klik iets anders te verkrijgen, waarbij ik niet in mijn opzet ben geslaagd..

  4. #4
    Tip :

    Delphi Code:
    1. Procedure Openform
    2. begin
    3.   Teller:=1;
    4. end
    5.  
    6. Procedure Buttonclick
    7. begin
    8.   if teller is 1 then
    9.   begin
    10.     ...
    11.     Teller:=2
    12.   end;
    13.   if teller is 2 then
    14.   begin
    15.     ....
    16.     teller:=3
    17.   end
    18.   if teller is 3 then
    19.   begin
    20.     ...
    21.     Teller:=1
    22.   end
    23. end;

    Last edited by GolezTrol; 30-Dec-12 at 16:55.
    Brouwvisie is helemaal mijn ding
    http://www.bier-brouwer.nl

  5. #5
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Quote Originally Posted by Oscar View Post
    Tip :

    Procedure Openform
    begin
    Teller:=1;
    end
    Quote Originally Posted by GolezTrol View Post
    TMemoryLeak.Create(Nil);

  6. #6
    Quote Originally Posted by VideoRipper View Post
    Duh...'t is niet de bedoeling dat ik zijn huiswerk ga maken...

    Deze pseudo code is al ene hele sterke hint naar de oplossing voor zijn probleem.... Echter mijn code zou op de gepost maniet niet juist werken, maar daar komt ie wel achter...
    Brouwvisie is helemaal mijn ding
    http://www.bier-brouwer.nl

  7. #7
    Senior Member Antoine's Avatar
    Join Date
    Apr 2011
    Location
    Molenwaard
    Posts
    2,399
    Dag,

    Inhoudelijk denk ik dat je genoeg hebt aan het antwoord van Oscar, maar ik heb wel een toevoeging.

    Gebruik voor je objecten goede namen, dat is de eerste les van het programmeren, zo weet je direct wat dat object doet...

    De variabelen zijn wel duidelijk, maar wij werken met het zogeheten camel-case. Simpel maar doeltreffend; voorbeeld: Naam van een TButton voor opslaan: btnDoSave. De twee capitale letters stellen de 'bulten' van de kameel voor

    Het hoeft natuurlijk niet precies zo, maar het staat wel zo netjes voor je examen ....

    Succes verder!
    " De waarde van het leven is niet in geld uit te drukken "

  8. #8
    Senior Member
    Join Date
    May 2009
    Location
    End of the Road
    Posts
    893
    Quote Originally Posted by Antoine View Post
    Dag,

    Gebruik voor je objecten goede namen, dat is de eerste les van het programmeren, zo weet je direct wat dat object doet...
    Last edited by organizer; 03-Jan-13 at 19:39.

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
  •