IndividualAbon.pas

   1 unit IndividualAbon;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls;
   8
   9 type
  10   TIndividualAbonForm = class(TForm)
  11     ComboBox1: TComboBox;
  12     Label1: TLabel;
  13     Button1: TButton;
  14     procedure Button1Click(Sender: TObject);
  15   private
  16     { Private \90é\8c¾ }
  17   public
  18     { Public \90é\8c¾ }
  19     ResNumber : Integer;
  20   end;
  21
  22 var
  23   IndividualAbonForm: TIndividualAbonForm;
  24
  25 implementation
  26
  27 {$R *.dfm}
  28
  29 procedure TIndividualAbonForm.Button1Click(Sender: TObject);
  30 begin
  31         ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
  32 end;
  33
  34 end.