Osaiskos joku selittää miten ja mihinkä TQueue:ta kannattaa käyttää.
TQueue
3
516
Vastaukset
- 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
Kuuluuko ehkäisy parisuhteessa molemmille
Mieheni pelkää kovasti sitä, että minun käyttämä ehkäisy (pillerit) pettävät ja että tulisin raskaaksi. Hänellä on jo en621214Suhun ihastuminen oli liikaa mulle ...
Se meni jo sairauden ja sekavuuden puolelle. Oisin tehnyt melkein mitä vain, että saisin sut ja se ei ole tervettä. Vars341020- 631010
Tänään valtuustossa
Striimi rikki. Mennään saliin ja otetaan pussillinen mätiä omenoita mukaan. Popcornit valmiiksi kun Savola alkaa puhumaa261007- 69955
- 46941
- 73892
- 17870
- 56852
Minkälaiset hiukset
kaivatullasi on? Miehellä Kenties ananas, puolikalju jne jne Naisella kenties vaaleat kiharat jne jne27836