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.4 - (hide annotations) (download) (as text)
Wed Nov 3 14:33:57 2004 UTC (19 years, 5 months ago) by h677
Branch: MAIN
CVS Tags: bv1_49_0_564, bv1_49_0_563
Changes since 1.3: +3 -2 lines
File MIME type: text/x-pascal
ブラウザポップアップメニューに、IDで個別あぼ〜ん追加。
IDポップアップをブラウザポップアップメニューに追加。

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 h677 1.3 { Private ?辿?転 }
18     FThreadLogFileName: String;
19     FNGFileName: String;
20 h677 1.1 public
21 h677 1.3 { Public ?辿?転 }
22     FRepaint : boolean;
23     ResNumber : Integer;
24     function SetThreadLogFileName(AFileName: String): boolean;
25     function DeleteNG(AResNum: Integer): boolean;
26 h677 1.1 end;
27    
28     var
29     IndividualAbonForm: TIndividualAbonForm;
30    
31     implementation
32    
33     {$R *.dfm}
34    
35     procedure TIndividualAbonForm.Button1Click(Sender: TObject);
36 h677 1.3 var
37     NGFile: TStringList;
38     i, j: Integer;
39    
40     str: String;
41     begin
42     if (FileExists(FNGFileName)) and (ComboBox1.ItemIndex >= 0) then begin
43     NGFile := TStringList.Create;
44     try
45     try
46     NGFile.LoadFromFile(FNGFileName);
47     str := ComboBox1.Items[ComboBox1.ItemIndex] + '-';
48     i := -1;
49     for j := 0 to NGFile.Count - 1 do begin
50     if AnsiPos(str, NGFile[j]) = 1 then begin
51     i := j;
52     break;
53     end;
54     end;
55    
56     //i := NGFile.IndexOf(str);
57     if i >= 0 then begin
58     FRepaint := true;
59     NGFile.Delete(i);
60     if NGFile.Count = 0 then
61     DeleteFile(FNGFileName)
62     else
63     NGFile.SaveToFile(FNGFileName);
64     end else
65     FRepaint := false;
66     except
67     end;
68     finally
69     NGFile.Free;
70     end;
71     end;
72     end;
73     function TIndividualAbonForm.SetThreadLogFileName(AFileName: String): boolean;
74     var
75     NGFile: TStringList;
76     i: Integer;
77     str: String;
78     begin
79     FThreadLogFileName := AFileName;
80     FNGFileName := ChangeFileExt(AFileName, '.NG');
81     Result := false;
82     if FileExists(FNGFileName) then begin
83     NGFile := TStringList.Create;
84     try
85     try
86     NGFile.LoadFromFile(FNGFileName);
87     ComboBox1.Items.Clear;
88     for i := 0 to NGFile.Count - 1do begin
89     str := Copy(NGFile.Strings[i], 1, AnsiPos('-', NGFile.Strings[i]) - 1);
90 h677 1.4 if str <> '' then
91     ComboBox1.Items.Add(str);
92 h677 1.3 end;
93 h677 1.4 if ComboBox1.Items.Count > 0 then
94 h677 1.3 Result := true;
95     except
96     Result := false;
97     end;
98     finally
99     NGFile.Free;
100     end;
101     end;
102     end;
103     function TIndividualAbonForm.DeleteNG(AResNum: Integer): boolean;
104     var
105     NGFile: TStringList;
106     i, j: Integer;
107    
108     str: String;
109 h677 1.1 begin
110 h677 1.3 Result := false;
111     if (FileExists(FNGFileName)) and (AResNum > 0) then begin
112     NGFile := TStringList.Create;
113     try
114     try
115     NGFile.LoadFromFile(FNGFileName);
116     str := IntToStr(AResNum) + '-';
117     i := -1;
118     for j := 0 to NGFile.Count - 1 do begin
119     if AnsiPos(str, NGFile[j]) = 1 then begin
120     i := j;
121     break;
122     end;
123     end;
124     if i >= 0 then begin
125     Result := true;
126     NGFile.Delete(i);
127     if NGFile.Count = 0 then
128     DeleteFile(FNGFileName)
129     else
130     NGFile.SaveToFile(FNGFileName);
131     end;
132     except
133     end;
134     finally
135     NGFile.Free;
136     end;
137     end;
138 h677 1.1 end;
139    
140     end.

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