| changeset 10690 | c3b73dc33294 |
| parent 10689 | 692649e341fc |
| child 10691 | 97f45f1374be |
| 10689:692649e341fc | 10690:c3b73dc33294 |
|---|---|
309 newl : boolean; |
309 newl : boolean; |
310 c : char; |
310 c : char; |
311 begin |
311 begin |
312 m:= Length(s); |
312 m:= Length(s); |
313 |
313 |
314 substr:= ''; |
|
315 |
|
314 SetLengthA(substr, m); |
316 SetLengthA(substr, m); |
315 |
317 |
316 // number of chars read |
318 // number of chars read |
317 r:= 0; |
319 r:= 0; |
318 |
320 |