462 |
|
Bookmark := B; |
463 |
|
Delete; |
464 |
|
PrintDataSet(FIBDataSet1); |
465 |
< |
writeln('Insert/Delete after first row'); |
465 |
> |
writeln(outfile,'Insert/Delete after first row'); |
466 |
|
Next; |
467 |
|
Insert; |
468 |
|
FieldByName('PlainText').AsString := 'This is an insert test #2'; |
473 |
|
Bookmark := B; |
474 |
|
Delete; |
475 |
|
PrintDataSet(FIBDataSet1); |
476 |
< |
writeln('Insert/Delete at last row'); |
476 |
> |
writeln(outfile,'Insert/Delete at last row'); |
477 |
|
Last; |
478 |
|
Insert; |
479 |
|
FieldByName('PlainText').AsString := 'This is an insert test #3'; |