Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/IndividualAbon.pas

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


Revision 1.2 - (show 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 unit IndividualAbon;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, Buttons;
8
9 type
10 TIndividualAbonForm = class(TForm)
11 ComboBox1: TComboBox;
12 Label1: TLabel;
13 Button1: TButton;
14 BitBtn1: TBitBtn;
15 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 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;
40
41 end.

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