home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / delph / aug95 / ripp1f9.gif < prev   
Graphics Interchange Format  |  1996-02-01  |  8.4 KB  |  582x245  |  4-bit (5 colors)
   ocr: COPY.PAS procedure TForml.Buttoniclick(Sender: TObject); var fieldNumber : Integer; begin Table2.Edit; Table2.Insert; for lelaumber : 0 to Tablel.FieldCount - 1 do Table2.Fields(fieldNumber).Assign(Tablel.FieldsIfielaNumber]); Tablez.Post; end; 41: 1 Modified Insert Copy_rec Copy/