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.7 - (hide annotations) (download) (as text)
Sun Aug 21 09:55:55 2005 UTC (18 years, 8 months ago) by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_56_0_715, v1_59_0_778, v1_63_1_819, v1_57_0_737, v1_62_0_812, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_51_0_612, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_51_1_639, v1_53_0_671, v1_60_0_788, v1_60_0_789, v1_54_0_677, v1_54_0_676, v1_58_0_748, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_54_0_678, v1_60_0_786, v1_60_0_787, v1_56_0_707, v1_59_0_767, v1_56_0_705, v1_56_0_704, v1_56_0_703, v1_56_0_702, v1_56_0_701, v1_56_0_700, v1_59_1_778, v1_51_0_626, v1_57_0_723, b51, v1_52_1_658, v1_51_0_622, v1_59_0_768, v1_59_0_769, v1_57_0_725, v1_57_0_726, v1_57_0_727, v1_57_0_720, v1_57_0_722, v1_57_1_744, v1_57_0_728, v1_57_0_729, v1_52_0_646, v1_57_0_736, v1_51_0_611, v1_51_0_620, v1_52_0_644, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_52_0_643, v1_57_0_719, v1_57_0_718, v1_56_0_716, v1_54_0_687, v1_56_0_710, v1_56_0_711, v1_56_1_717, v1_56_1_716, v1_51_0_634, v1_51_0_635, v1_51_0_636, v1_51_0_637, v1_54_0_688, v1_54_0_689, v1_51_0_632, v1_51_0_633, v1_54_0_684, v1_54_0_685, v1_53_0_664, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_52_0_647, v1_61_0_798, v1_61_0_799, v1_51_0_638, v1_52_0_648, v1_53_0_661, v1_53_0_663, v1_53_0_662, v1_53_0_665, v1_53_0_667, v1_53_0_666, v1_53_0_669, v1_53_0_668, v1_55_0_692, v1_55_0_693, v1_55_0_696, v1_55_0_697, v1_55_0_694, v1_55_0_695, v1_52_0_645, v1_52_0_651, v1_54_1_691, v1_52_0_650, v1_56_2_724, v1_56_2_722, v1_52_0_652, v1_55_1_697, v1_52_0_642, v1_52_0_654, v1_51_0_616, v1_56_0_714, v1_51_0_614, v1_51_0_615, v1_53_0_672, v1_51_0_613, v1_53_0_670, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_51_1_640, v1_54_0_686, v1_51_0_618, v1_51_0_619, v1_54_0_680, v1_54_0_681, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, v1_56_0_712, v1_62_0_803, v1_62_0_802, v1_56_0_713, v1_62_0_809, v1_54_0_682, v1_56_0_721, v1_51_0_630, v1_54_0_683, v1_51_0_631, v1_60_0_780, v1_60_0_779, v1_62_0_810, v1_62_0_811, v1_58_0_747, v1_60_0_783, root-of-draw, v1_54_0_679, v1_59_2_785, marged_bRESPOPUP, v1_54_0_675, v1_51_0_628, v1_51_0_617, root-of-Bb51, v1_56_0_706, root-of-Bb53, v1_52_1_657, v1_54_0_674, v1_52_0_660, v1_60_1_793, v1_51_0_629, v1_54_0_690, v1_51_0_627, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_51_0_625, v1_62_1_813, v1_51_0_623, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_52_0_655, v1_56_0_709, v1_57_0_744, v1_52_0_656, v1_56_0_708, v1_52_0_649, v1_61_0_800, v1_53_1_673, v1_56_0_699, v1_56_0_698, v1_51_0_624, v1_51_1_641, v1_51_0_621, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801, HEAD
Branch point for: Bb57, Bb56, Bb55, Bb53, Bb52, Bb51, Bb62, Bb63, Bb60, Bb61, Bb59, Bb58, bRESPOPUP, bListSU, Bb54, Bdraw
Changes since 1.6: +7 -5 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.7 Dialogs, StdCtrls, Buttons, ExtCtrls;
8 h677 1.1
9     type
10     TIndividualAbonForm = class(TForm)
11 h677 1.7 Panel1: TPanel;
12     BitBtn1: TBitBtn;
13     BitBtn2: TBitBtn;
14     Button1: TButton;
15     Panel2: TPanel;
16     Label1: TLabel;
17 h677 1.1 ComboBox1: TComboBox;
18     procedure Button1Click(Sender: TObject);
19 h677 1.5 procedure FormCreate(Sender: TObject);
20     procedure FormDestroy(Sender: TObject);
21     procedure BitBtn2Click(Sender: TObject);
22 h677 1.1 private
23 h677 1.3 { Private ?辿?転 }
24     FThreadLogFileName: String;
25     FNGFileName: String;
26 h677 1.5 FDeleteList: TStringList;
27 h677 1.1 public
28 h677 1.3 { Public ?辿?転 }
29     FRepaint : boolean;
30     ResNumber : Integer;
31     function SetThreadLogFileName(AFileName: String): boolean;
32     function DeleteNG(AResNum: Integer): boolean;
33 h677 1.5 property DeleteList : TStringList read FDeleteList write FDeleteList;
34 h677 1.1 end;
35    
36     var
37     IndividualAbonForm: TIndividualAbonForm;
38    
39     implementation
40    
41     {$R *.dfm}
42    
43     procedure TIndividualAbonForm.Button1Click(Sender: TObject);
44 h677 1.3 var
45     NGFile: TStringList;
46     i, j: Integer;
47    
48     str: String;
49     begin
50     if (FileExists(FNGFileName)) and (ComboBox1.ItemIndex >= 0) then begin
51     NGFile := TStringList.Create;
52     try
53     try
54     NGFile.LoadFromFile(FNGFileName);
55     str := ComboBox1.Items[ComboBox1.ItemIndex] + '-';
56     i := -1;
57     for j := 0 to NGFile.Count - 1 do begin
58     if AnsiPos(str, NGFile[j]) = 1 then begin
59     i := j;
60     break;
61     end;
62     end;
63    
64     if i >= 0 then begin
65     FRepaint := true;
66 h677 1.5 DeleteList.Add(Copy(str, 1, Length(str) - 1));
67 h677 1.3 NGFile.Delete(i);
68     if NGFile.Count = 0 then
69     DeleteFile(FNGFileName)
70     else
71     NGFile.SaveToFile(FNGFileName);
72     end else
73     FRepaint := false;
74     except
75     end;
76     finally
77     NGFile.Free;
78     end;
79     end;
80     end;
81     function TIndividualAbonForm.SetThreadLogFileName(AFileName: String): boolean;
82     var
83     NGFile: TStringList;
84     i: Integer;
85     str: String;
86     begin
87     FThreadLogFileName := AFileName;
88     FNGFileName := ChangeFileExt(AFileName, '.NG');
89     Result := false;
90     if FileExists(FNGFileName) then begin
91     NGFile := TStringList.Create;
92     try
93     try
94     NGFile.LoadFromFile(FNGFileName);
95     ComboBox1.Items.Clear;
96 h677 1.5 ComboBox1.Sorted := true;
97 h677 1.3 for i := 0 to NGFile.Count - 1do begin
98     str := Copy(NGFile.Strings[i], 1, AnsiPos('-', NGFile.Strings[i]) - 1);
99 h677 1.4 if str <> '' then
100     ComboBox1.Items.Add(str);
101 h677 1.3 end;
102 h677 1.4 if ComboBox1.Items.Count > 0 then
103 h677 1.3 Result := true;
104 h677 1.5
105 h677 1.3 except
106     Result := false;
107     end;
108     finally
109     NGFile.Free;
110     end;
111     end;
112     end;
113     function TIndividualAbonForm.DeleteNG(AResNum: Integer): boolean;
114     var
115     NGFile: TStringList;
116     i, j: Integer;
117    
118     str: String;
119 h677 1.1 begin
120 h677 1.3 Result := false;
121     if (FileExists(FNGFileName)) and (AResNum > 0) then begin
122     NGFile := TStringList.Create;
123     try
124     try
125     NGFile.LoadFromFile(FNGFileName);
126     str := IntToStr(AResNum) + '-';
127 h677 1.5 i := -1;
128 h677 1.3 for j := 0 to NGFile.Count - 1 do begin
129     if AnsiPos(str, NGFile[j]) = 1 then begin
130     i := j;
131     break;
132     end;
133     end;
134     if i >= 0 then begin
135     Result := true;
136     NGFile.Delete(i);
137     if NGFile.Count = 0 then
138     DeleteFile(FNGFileName)
139     else
140     NGFile.SaveToFile(FNGFileName);
141     end;
142     except
143     end;
144     finally
145     NGFile.Free;
146     end;
147     end;
148 h677 1.1 end;
149    
150 h677 1.5 procedure TIndividualAbonForm.FormCreate(Sender: TObject);
151     begin
152     FDeleteList := TStringList.Create;
153     end;
154    
155     procedure TIndividualAbonForm.FormDestroy(Sender: TObject);
156     begin
157     FDeleteList.Free;
158     end;
159    
160     procedure TIndividualAbonForm.BitBtn2Click(Sender: TObject);
161     var
162     NGFile: TStringList;
163 h677 1.6 i{, j}: Integer;
164 h677 1.5
165     str: String;
166     begin
167     if (FileExists(FNGFileName)) then begin
168     NGFile := TStringList.Create;
169     try
170     try
171     FRepaint := false;
172     NGFile.LoadFromFile(FNGFileName);
173     for i := ComboBox1.Items.Count - 1 downto 0 do begin
174     str := ComboBox1.Items[i];
175     if( Length(str) > 0 ) then begin
176     FRepaint := true;
177     DeleteList.Add(str);
178     NGFile.Delete(i);
179     end;
180     end;
181     DeleteFile(FNGFileName);
182     except
183     end;
184     finally
185     NGFile.Free;
186     end;
187     end;
188     end;
189    
190 h677 1.1 end.

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