changeset 889 | 3bf9dc791f45 |
parent 887 | cfed7e92afd7 |
child 905 | 57fec00e1b66 |
888:9b2abea1071f | 889:3bf9dc791f45 |
---|---|
175 until isTerminated |
175 until isTerminated |
176 end; |
176 end; |
177 |
177 |
178 //////////////////// |
178 //////////////////// |
179 procedure GetParams; |
179 procedure GetParams; |
180 var |
180 var |
181 {$IFDEF DEBUGFILE} |
181 {$IFDEF DEBUGFILE} |
182 i: LongInt; |
182 i: LongInt; |
183 {$ENDIF} |
183 {$ENDIF} |
184 p: TPathType; |
184 p: TPathType; |
185 begin |
185 begin |