ocr: UCHREG.PAS -OX Databasel.StartTransaction; (Havars Tpansaxipao)A with Tablel do begin First; while not EOF do begin 8:-TablelSHORT NAME.Value; Edit; TablelSHORT NAME.Value:-AnsiUpperCase(s); Post; Next; end; end; Databasel.Commit; (3aBepMTE TpassakupA) 51: - 13 Modified Insert conttest.dd),Uchreg,
