| 1,5 → 1,7 |
|---|
| unit Main; |
| |
| { This source code is only compatible with Delphi 1.0 ! } |
| |
| interface |
| |
| uses |
| 152,6 → 154,9 |
|---|
| l: TList; |
| sl: TStringList; |
| workItem: TWorkItem; |
| label |
| continuework, |
| ende; |
| begin |
| l := TList.Create; |
| sl := TStringList.Create; |
| 162,8 → 167,9 |
|---|
| workItem.nod := nod; |
| l.Add(workItem); |
| |
| while l.Count > 0 do |
| begin |
| continuework: |
| |
| if l.Count = 0 then goto ende; |
| workItem := l.Items[l.Count-1]; |
| oid := workItem.sectionName; |
| ini := workItem.ini; |
| 203,8 → 209,11 |
|---|
| end; |
| if (oid = 'OID:') or (sl.Count < 125) then |
| ExpandNodeAndParents(Outline1.Items[nod]); |
| end; |
| |
| goto continuework; |
| |
| ende: |
| |
| sl.Free; |
| l.Free; |
| end; |
| 685,7 → 694,7 |
|---|
| txtFile := ini.ReadString(Edit4.Text, 'information', ''); |
| if FileExists(DBPath+txtFile) then |
| begin |
| SysUtils.DeleteFile(DBPath+txtFile); |
| DeleteFile(DBPath+txtFile); |
| end; |
| if txtFile <> '' then |
| begin |