changeset 13883 | 0ce8aad17c24 |
parent 13882 | 8c702a4839ec |
child 13885 | 5f819b90d479 |
13882:8c702a4839ec | 13883:0ce8aad17c24 |
---|---|
195 if (p = 0) then |
195 if (p = 0) then |
196 break |
196 break |
197 else |
197 else |
198 begin |
198 begin |
199 delete(tempstr, p, 2); |
199 delete(tempstr, p, 2); |
200 //FIXME rtl/system needs an ansi insert |
|
201 {$IFNDEF PAS2C} |
|
200 insert(curArg, tempstr, p); |
202 insert(curArg, tempstr, p); |
203 {$ENDIF} |
|
201 end; |
204 end; |
202 end; |
205 end; |
203 FormatA:= tempstr; |
206 FormatA:= tempstr; |
204 end; |
207 end; |
205 |
208 |