TQueue

TQueue-kysyjä

Osaiskos joku selittää miten ja mihinkä TQueue:ta kannattaa käyttää.

3

501

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • aassddff

      Niin, mikä toi on?

      • whoknows_

        TQueue pitää siis sisällään jonon hallinnan (FIFO), jos tuo ei sano mitään, niin tuskin koko luokkaa tulet kaipaamaankaan, eikä normaalisti sitä edes tarvitse käyttää, jos lisätietoa itse luokasta tahdot niin Delphin kautta katselemaan lähdekoodia..


    • -lara-

      Tässä eräs ratkaisu.

      Laita formille kaksi buttonia ja memo. Luot niille alla olevat tapahtumat.
      Lisäät uses-lauseeseen contnrs
      ja täydennät koodia seuraavasti:


      type

      { TForm1 }

      TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      Memo1: TMemo;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure FormDestroy(Sender: TObject);
      private
      { private declarations }
      i:integer;
      jono:TQueue;
      public
      { public declarations }
      end;

      ...

      procedure TForm1.Button1Click(Sender: TObject);
      var
      j:integer;
      begin
      inc(i);
      j :=i;
      jono.Push(Pointer(j));
      end;

      procedure TForm1.Button2Click(Sender: TObject);
      var
      p:string;
      j:integer;
      begin
      Memo1.Clear;
      while jono.Count> 0 do
      begin
      j :=integer(jono.Pop);
      p := intToStr(j);
      Memo1.Lines.Add(p);
      end;
      i := 0; // kokeile myös kommentoimalla tämä
      end;

      procedure TForm1.FormCreate(Sender: TObject);
      begin
      jono:=TQueue.Create;
      i := 0;
      end;

      procedure TForm1.FormDestroy(Sender: TObject);
      begin
      FreeAndNil(jono);
      end;

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Donald Trump joutui ammutuksi vaalitilaisuudessaan

      Näin se näyttää olevan, että Trumpilla on niin kannattajia kuin vastustajiakin. Hengissä käveli pois, ilmeisesti jokin
      Maailman menoa
      381
      3081
    2. Tajuatko kuinka hyvää

      seksi meidän välillä tekisi?
      Ikävä
      70
      1258
    3. IS Viikonloppu 13.-14.7.2024

      3- -merkitty kovis Antti Skytältä. Ratkaisulauseita sai kunnolla miettiä senkin jälkeen kun niistä pääsi jyvälle. Jotkut
      Sanaristikot
      64
      1189
    4. Rakastan sua nainen vieläkin

      mut aion pysyy hiljaa 😔
      Ikävä
      45
      1145
    5. Tänään rohkaisin

      Mieleni (tai siis eilen jos tarkkoja ollaan ja kävelin ihan sun kodin ohi molemmin puolin 😂😆🤭 katelin tarkkaan ympäri
      Ikävä
      95
      1135
    6. Sunnuntain kirjainleikkejä

      Kuinka monta kirjainta kaivattusi etu- ja sukunimissä on yhteensä? Ap vastaa 11 ja miehen nimi alkaa heheee Jiillä 🧑‍🍳
      Ikävä
      20
      1132
    7. Kova oli pauke!

      Kyllä oli viime yönä kova pauke Iisalmessa. Koko kaupunki taisi herätä ja säikähtää moista pauketta. Eikö tämä riko jo
      Iisalmi
      35
      1070
    8. Vasemmisto väkivalta kiihtyy

      Nyt joutui uhriksi Trump. Suomessa vasemmistolaiset on kertoneet leikkaavansa päät irti Orpolta ja Purralta. Pitäisik
      Maailman menoa
      274
      995
    9. Kerro kolme hyvää asiaa

      kaivatustasi :)
      Ikävä
      55
      983
    10. Sitä vielä...

      Että tiedätkö olisiko meidän suhde jotenkin kiellettyä/laitonta?
      Ikävä
      52
      919
    Aihe