TQueue

Niin, mikä toi on?

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;