开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ListForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

ListForm.pas：源码内容
  1. unit ListForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Contnrs;
  9. type
  10.   TForm1 = class(TForm)
  11.     ButtonAdd: TButton;
  12.     ButtonList: TButton;
  13.     ListBox1: TListBox;
  14.     ButtonWrong: TButton;
  15.     btnListStack: TButton;
  16.     btnQueue: TButton;
  17.     procedure ButtonAddClick(Sender: TObject);
  18.     procedure ButtonListClick(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure ButtonWrongClick(Sender: TObject);
  21.     procedure FormDestroy(Sender: TObject);
  22.     procedure btnListStackClick(Sender: TObject);
  23.     procedure btnQueueClick(Sender: TObject);
  24.   private
  25.     ListDate: TObjectList;
  26.     Stack: TStack;
  27.     Queue: TQueue;
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  37. {$R *.DFM}
  39. uses
  40.   Dates;
  42. procedure TForm1.ButtonAddClick(Sender: TObject);
  43. begin
  44.   ListDate.Add (TDate.Create (
  45.     1900 + Random (200), 1 + Random (12), 1 + Random (30)));
  46. end;
  48. procedure TForm1.ButtonListClick(Sender: TObject);
  49. var
  50.   I: Integer;
  51. begin
  52.   ListBox1.Clear;
  53.   for I := 0 to ListDate.Count - 1 do
  54.     Listbox1.Items.Add ((TObject(ListDate [I]) as TDate).Text);
  55. end;
  57. procedure TForm1.FormCreate(Sender: TObject);
  58. var
  59.   I: Integer;
  60. begin
  61.   Randomize;
  62.   ListDate := TObjectList.Create (True);
  63.   Stack := TStack.Create;
  64.   Queue := TQueue.Create;
  66.   for I := 1 to 10 do
  67.   begin
  68.     Stack.Push (Pointer (I));
  69.     Queue.Push (Pointer (I));
  70.   end;
  71. end;
  73. procedure TForm1.ButtonWrongClick(Sender: TObject);
  74. begin
  75.   // add a button to the list
  76.   ListDate.Add (Sender);
  77. end;
  79. procedure TForm1.FormDestroy(Sender: TObject);
  80. begin
  81.   ListDate.Free;
  82.   Stack.Free;
  83.   Queue.Free;
  84. end;
  86. procedure TForm1.btnListStackClick(Sender: TObject);
  87. var
  88.   Stack2: TStack;
  89. begin
  90.   Stack2 := TStack.Create;
  91.   ListBox1.Clear;
  92.   // lists removing
  93.   while Stack.Count > 0 do
  94.   begin
  95.     ListBox1.Items.Add (IntToStr (Integer (Stack.Peek)));
  96.     Stack2.Push (Stack.Pop);
  97.   end;
  98.   // restores
  99.   while Stack2.Count > 0 do
  100.     Stack.Push (Stack2.Pop);
  102.   ShowMessage ('Removed: ' + IntToStr (Integer (Stack.Pop)));
  103. end;
  105. procedure TForm1.btnQueueClick(Sender: TObject);
  106. var
  107.   I: Integer;
  108. begin
  109.   ListBox1.Clear;
  110.   for I := 0 to Queue.Count - 1 do
  111.   begin
  112.     ListBox1.Items.Add (IntToStr (Integer (Queue.Peek)));
  113.     Queue.Push (Queue.Pop);
  114.   end;
  115.   ShowMessage ('Removed: ' + IntToStr (Integer (Queue.Pop)));
  116. end;
  118. end.