Rev 234 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 234 | Rev 235 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | unit Main; |
1 | unit Main; |
| 2 | 2 | ||
| 3 | { This source code is only compatible with Delphi 1.0 ! } |
- | |
| 4 | - | ||
| 5 | interface |
3 | interface |
| 6 | 4 | ||
| 7 | uses |
5 | uses |
| 8 | SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, |
6 | SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, |
| 9 | Dialogs, StdCtrls, IniFiles, Grids, Outline, ExtCtrls; |
7 | Dialogs, StdCtrls, IniFiles, Grids, Outline, ExtCtrls; |
| Line 152... | Line 150... | ||
| 152 | sectionName: string; |
150 | sectionName: string; |
| 153 | asn1ids: string; |
151 | asn1ids: string; |
| 154 | l: TList; |
152 | l: TList; |
| 155 | sl: TStringList; |
153 | sl: TStringList; |
| 156 | workItem: TWorkItem; |
154 | workItem: TWorkItem; |
| 157 | label |
- | |
| 158 | continuework, |
- | |
| 159 | ende; |
- | |
| 160 | begin |
155 | begin |
| 161 | l := TList.Create; |
156 | l := TList.Create; |
| 162 | sl := TStringList.Create; |
157 | sl := TStringList.Create; |
| 163 | 158 | ||
| 164 | workItem := TWorkItem.Create; |
159 | workItem := TWorkItem.Create; |
| 165 | workItem.sectionName := oid; |
160 | workItem.sectionName := oid; |
| 166 | workItem.ini := ini; |
161 | workItem.ini := ini; |
| 167 | workItem.nod := nod; |
162 | workItem.nod := nod; |
| 168 | l.Add(workItem); |
163 | l.Add(workItem); |
| 169 | 164 | ||
| 170 | continuework: |
- | |
| 171 | - | ||
| 172 | if l.Count = 0 then goto ende; |
165 | while l.Count > 0 do |
| - | 166 | begin |
|
| 173 | workItem := l.Items[l.Count-1]; |
167 | workItem := l.Items[l.Count-1]; |
| 174 | oid := workItem.sectionName; |
168 | oid := workItem.sectionName; |
| 175 | ini := workItem.ini; |
169 | ini := workItem.ini; |
| 176 | nod := workItem.nod; |
170 | nod := workItem.nod; |
| 177 | workItem.Free; |
171 | workItem.Free; |
| Line 207... | Line 201... | ||
| 207 | workItem.nod := nod; |
201 | workItem.nod := nod; |
| 208 | l.Add(workItem); |
202 | l.Add(workItem); |
| 209 | end; |
203 | end; |
| 210 | if (oid = 'OID:') or (sl.Count < 125) then |
204 | if (oid = 'OID:') or (sl.Count < 125) then |
| 211 | ExpandNodeAndParents(Outline1.Items[nod]); |
205 | ExpandNodeAndParents(Outline1.Items[nod]); |
| 212 | - | ||
| 213 | goto continuework; |
- | |
| 214 | - | ||
| 215 | ende: |
206 | end; |
| 216 | 207 | ||
| 217 | sl.Free; |
208 | sl.Free; |
| 218 | l.Free; |
209 | l.Free; |
| 219 | end; |
210 | end; |
| 220 | 211 | ||
| Line 692... | Line 683... | ||
| 692 | if Trim(Memo1.Text) = '' then |
683 | if Trim(Memo1.Text) = '' then |
| 693 | begin |
684 | begin |
| 694 | txtFile := ini.ReadString(Edit4.Text, 'information', ''); |
685 | txtFile := ini.ReadString(Edit4.Text, 'information', ''); |
| 695 | if FileExists(DBPath+txtFile) then |
686 | if FileExists(DBPath+txtFile) then |
| 696 | begin |
687 | begin |
| 697 | DeleteFile(DBPath+txtFile); |
688 | SysUtils.DeleteFile(DBPath+txtFile); |
| 698 | end; |
689 | end; |
| 699 | if txtFile <> '' then |
690 | if txtFile <> '' then |
| 700 | begin |
691 | begin |
| 701 | ini.WriteString(Edit4.Text, 'information', '') |
692 | ini.WriteString(Edit4.Text, 'information', '') |
| 702 | end; |
693 | end; |