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