home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / macros.pak / RECNO.MAC < prev    next >
Unknown  |  1995-08-24  |  478 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert MacPaint Image (image/macPaint) ext Supported
1% dexvert Installer VISE Package (archive/installerVISE) ext Unsupported
1% dexvert Platinen Layout Programm Macro (other/platinenLayoutProgrammMacro) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 5b 06 54 4d 61 63 72 | 6f 06 00 0c 52 65 63 6f |.[.TMacr|o...Reco|
|00000010| 72 64 4e 75 6d 62 65 72 | 39 54 68 69 73 20 6d 61 |rdNumber|9This ma|
|00000020| 63 72 6f 20 64 65 66 69 | 6e 65 73 20 61 20 64 65 |cro defi|nes a de|
|00000030| 72 69 76 65 64 20 66 69 | 65 6c 64 20 20 63 61 6c |rived fi|eld cal|
|00000040| 6c 65 64 20 52 65 63 6f | 72 64 5f 4e 75 6d 62 65 |led Reco|rd_Numbe|
|00000050| 72 2e 6f 01 27 20 54 68 | 69 73 20 6d 61 63 72 6f |r.o.' Th|is macro|
|00000060| 20 67 65 74 73 20 74 68 | 65 20 63 75 72 72 65 6e | gets th|e curren|
|00000070| 74 20 72 65 63 6f 72 64 | 20 6e 75 6d 62 65 72 20 |t record| number |
|00000080| 61 6e 64 20 75 73 65 73 | 20 69 74 20 74 6f 20 6d |and uses| it to m|
|00000090| 61 6b 65 20 61 20 64 65 | 72 69 76 65 64 20 66 69 |ake a de|rived fi|
|000000a0| 65 6c 64 20 74 68 61 74 | 0d 0a 27 20 6e 75 6d 62 |eld that|..' numb|
|000000b0| 65 72 73 20 74 68 65 20 | 72 65 63 6f 72 64 73 20 |ers the |records |
|000000c0| 69 6e 20 74 68 65 20 72 | 65 70 6f 72 74 2e 0d 0a |in the r|eport...|
|000000d0| 0d 0a 53 75 62 20 52 65 | 63 6f 72 64 4e 75 6d 62 |..Sub Re|cordNumb|
|000000e0| 65 72 28 29 0d 0a 20 20 | 20 0d 0a 20 20 20 27 20 |er().. | .. ' |
|000000f0| 43 75 72 72 65 6e 74 20 | 67 65 74 73 20 74 68 65 |Current |gets the|
|00000100| 20 63 75 72 72 65 6e 74 | 20 72 65 63 6f 72 64 20 | current| record |
|00000110| 6e 75 6d 62 65 72 2e 0d | 0a 20 20 20 27 20 53 74 |number..|. ' St|
|00000120| 72 24 20 63 6f 6e 76 65 | 72 74 73 20 74 68 65 20 |r$ conve|rts the |
|00000130| 6e 75 6d 62 65 72 20 74 | 6f 20 61 20 73 74 72 69 |number t|o a stri|
|00000140| 6e 67 2e 0d 0a 20 20 20 | 27 20 44 65 72 69 76 65 |ng... |' Derive|
|00000150| 64 46 69 65 6c 64 20 73 | 65 74 73 20 74 68 65 20 |dField s|ets the |
|00000160| 73 74 72 69 6e 67 20 61 | 73 20 74 68 65 20 76 61 |string a|s the va|
|00000170| 75 65 20 74 6f 20 62 65 | 20 75 73 65 64 20 66 6f |ue to be| used fo|
|00000180| 72 20 74 68 65 20 64 65 | 72 69 76 65 64 20 66 69 |r the de|rived fi|
|00000190| 65 6c 64 2e 0d 0a 20 20 | 0d 0a 20 20 20 44 65 72 |eld... |.. Der|
|000001a0| 69 76 65 64 46 69 65 6c | 64 20 53 74 72 24 28 43 |ivedFiel|d Str$(C|
|000001b0| 75 72 72 65 6e 74 29 20 | 0d 0a 0d 0a 45 6e 64 20 |urrent) |....End |
|000001c0| 53 75 62 ff ff 15 43 3a | 5c 4e 45 57 4d 41 43 52 |Sub...C:|\NEWMACR|
|000001d0| 4f 5c 52 45 43 4e 4f 2e | 4d 41 43 00 00 5d |O\RECNO.|MAC..] |
+--------+-------------------------+-------------------------+--------+--------+