Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/IndividualAbon.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by h677, Tue Sep 2 13:48:21 2003 UTC revision 1.2 by h677, Tue Sep 2 14:42:43 2003 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7    Dialogs, StdCtrls;    Dialogs, StdCtrls, Buttons;
8    
9  type  type
10    TIndividualAbonForm = class(TForm)    TIndividualAbonForm = class(TForm)
11      ComboBox1: TComboBox;      ComboBox1: TComboBox;
12      Label1: TLabel;      Label1: TLabel;
13      Button1: TButton;      Button1: TButton;
14        BitBtn1: TBitBtn;
15      procedure Button1Click(Sender: TObject);      procedure Button1Click(Sender: TObject);
16    private    private
17      { Private 宣言 }      { Private 宣言 }
# Line 28  implementation Line 29  implementation
29    
30  procedure TIndividualAbonForm.Button1Click(Sender: TObject);  procedure TIndividualAbonForm.Button1Click(Sender: TObject);
31  begin  begin
32          ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);      if ComboBox1.Text <> '' then begin
33            try
34                            ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
35            Except
36                ResNumber := 0;
37            end;
38        end;
39  end;  end;
40    
41  end.  end.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26