Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/IndividualAbon.pas

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


Revision 1.2 - (hide annotations) (download) (as text)
Tue Sep 2 14:42:43 2003 UTC (20 years, 7 months ago) by h677
Branch: MAIN
CVS Tags: b49, b48, b37, v1_49_0_548, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, b47, v1_48_0_530, b44, v1_49_0_554, b41, v1_49_0_551, b40, v1_48_0_510, b43, v1_48_0_535, v1_49_0_552, v1_49_0_553, v1_49_0_546, v1_48_0_539, v1_48_0_538, b46, v1_48_0_533, v1_48_0_537, v1_49_2_569, v1_48_0_536, v1_49_0_541
Branch point for: BRANCH_TORA, Bb49, stable
Changes since 1.1: +9 -2 lines
File MIME type: text/x-pascal
キャンセルボタン追加。無効な文字列が入っても処理できるようにした。

1 h677 1.1 unit IndividualAbon;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 h677 1.2 Dialogs, StdCtrls, Buttons;
8 h677 1.1
9     type
10     TIndividualAbonForm = class(TForm)
11     ComboBox1: TComboBox;
12     Label1: TLabel;
13     Button1: TButton;
14 h677 1.2 BitBtn1: TBitBtn;
15 h677 1.1 procedure Button1Click(Sender: TObject);
16     private
17     { Private ?辿?転 }
18     public
19     { Public ?辿?転 }
20     ResNumber : Integer;
21     end;
22    
23     var
24     IndividualAbonForm: TIndividualAbonForm;
25    
26     implementation
27    
28     {$R *.dfm}
29    
30     procedure TIndividualAbonForm.Button1Click(Sender: TObject);
31     begin
32 h677 1.2 if ComboBox1.Text <> '' then begin
33     try
34     ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
35     Except
36     ResNumber := 0;
37     end;
38     end;
39 h677 1.1 end;
40    
41     end.

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