[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {+--------------------------------------------------------------------------+
     | Unit:        mwIPos
     | Created:     8.97
     | Author:      Martin Waldenburg
     | Copyright    1997, all rights reserved.
     | Description: Two simple and effective case insensitive "Pos" functions.
     |              The typecast in the parameters is a bit uncomfortable, but
     |              otherwise it would be significant slower.
     | Version:     1.6
     | Status:      FreeWare
     | Disclaimer:
     | This is provided as is, expressly without a warranty of any kind.
     | You use it at your own risc.
     +--------------------------------------------------------------------------+}
    { the following contains additional files that should be included with this
      file.  To extract, you need XX3402 available with the SWAG distribution.

      1.     Cut the text below out, and save to a file  ..  filename.xx
      2.     Use XX3402  :   xx3402 d filename.xx
      3.     The decoded file should be created in the same directory.
      4.     If the file is a archive file, use the proper archive program to
             extract the members.

    { ------------------            CUT              ----------------------}

    *XX3402-004641-240897--72--85-49788------MWIPOS.ZIP--1-OF--2
    I2g1-+c++++++2hRW03V9lqmg+I++9+3+++C++++PLR4MLBoJ4ZhNGtuOL-EGkA23+++++U+
    9d3M6OZKPkVB+E++l+I+++s+++-hRoNVQrFIOKpZ9aFXQgKHDIs1AF03LlMYe2WCEAY-C+-6
    20Y3B2HW0VlXGrRQOMym-EIJqX8RaHxv7htB+F7WRWrjtra7lnwD+8udtOmhXQyitAycfKFg
    gvYs9zYPyzoRhFJoiCxk6bdtoTTOwIATkn-EnmBNLWt2CbuYfcmjLwFcgnNM-f1CWS6xsofH
    qLV0sEBlBaNxtfHdHJ1H6a0qh+W67uwROy8ONg2VHL3di2kVHE9WU1Bix0BGucC+oWY6C-o3
    YbO-dZr+utLkzR5kzMbQuaTvrNv5Xk9z54xodqz-Rv515YxslFPrS85jDLP2XuNPwUOrsUrw
    UHQSabUyrfeD7FthJiC0DA+QjI3wt+rXuUrHJqzczvYrN9vU1NizSYDfQqwcinSgzbfLXOgL
    Hb0XRqzMTBIPJYyxyZejSoDLsxscumprrTOXSa4-KzpgjxjnW15Xxfmz+J-9+kEI++++0+1c
    M3gVZgdJabo1++0-0k++1U+++4prFa3nR3FdPKIiQ43nfJPPPVAl25qDZ5wM5Z-G8MGY60uB
    S6-0c38-EU6JEXksitCBpJpv4RhRJZLtRgNCghaa1EYhcpnqAbDaRXnqlMDz67TBlUKAgq6c
    X-r91C2fx9gxi6o2e3CGpe80GEbj-Jads3GYAOe7ckHuntwzuSu4QuXnYaEmgrx1Sdaa27EA
    2-eYQsmvOnXXaHH+bm2VbUf0vSujGQ+tgWo1CSZn4KAAkaBqc7-qddo3+MIU2geKc8QUJ+Zb
    IgLffU9CByr+4EH7JVN8vEVocHU92yoOKcKHWH7U0FJ196oZCL2qE2wtqvHQ+VVkLb5sGmmZ
    9FXyZnvL23eVuSnj62iQcuarK+j1DwaQgQj0US041KK8tePEDAtqkauLFPzUdoCGO9UvvtUX
    w-aBHdqJKX4tb976cLzwCWSAdD2jTDQajeBJLfpCfxRvxUUm1bac0T0L7Qmsi4-aaWlMLXA4
    v+kx+ppeEm2b03CFQaTyRptCQJJLWrLEP1EPoeQm3F5u4uO1OHPUZCab0qPce1FTf2ntuX+J
    VZym0HEPhglN5Osgz-QESNLqy3-biJOcv7tLmIaS0lio+O6Ce1tzxkxUT0kckGBqbW+Btey5
    Pp8F4sk1rU4AT6J4n+SJ1CNEqa7YAEsrPd98O+4f3RD4FNM9T2X6vhcjDlM8uO+Kn20T6l4n
    OC2glgfahPzItPf40SYQWFTZlf0sOG8y2jP8BA9M2Q96wj0tsObC-pIONXPDeSPmUwWiVH2K
    jUucsh0rj+9vX+Yjap13oB+gHtZWmUdDJjzYsjSCQfYFSA8LmgSnT3MJpfFPKR5eT8xlsQRS
    3GS2nvw3I4xb1PKviPKpy8GOwP7ZYZlZkhuWa4gQSk4hpdpWfP4c5ieGIHQ4hbdtSvwf8hLR
    9gZKCTr2AukwsTKh8FAeEhv4S8mde4l5wseg8ml4KpjpJnrwRkdhWWuETaBkZSzxSKnpJb4b
    UddhhoP6-6bB+RlDKVrsnifRHov27tkuDC1tIhrhDMGcieZlYbyv6OThArCnVCZyzK0lgkHv
    Mxtu-INbGAk6DpxVzyZqom1-zabzmSBxC5Nl6FBn0zxjoJSyr8txLM9x5GHMXpn0Os4b34wk
    D9NsZky1msEXGOFtluyRVs0DLp-U4aZSiQjHaJ-blXA197Jy64RZgBjlZ1WOSQlkJD3KxvNO
    fSGiin9Pzk3EGk20AUgI++++0++iYJUVeJNj02o-++12-E++1U+++++++++++0++hc2+++++
    PLR4MLBoJ4ZhNGtYMr7EGk20AUgI++++0+1cM3gVZgdJabo1++0-0k++1U+++++++++-+0++
    hc3t+E++PLR4MLBoJ4ZhNGtkMLBEGkI4++++++6++U-s++++6UI+++++I2g1--E++++6+4O3
    30BzJYm4Ck2++220+++7++++JKtdR12iN4NhTN1BHg7+2AT5vQQe5t49WRts+YDV0P1GE+Fd
    u-esOOK9rRXiYioOufBtwiM9SJLHPZIUoQhzAtaRLyMrbnIUrbEqQO1HQV++wPqCHHkVIwQe
    olnHZH9Sk0-WXNEpNt48XEykVtExlAds+Sm4OwI2hzLzVWSsCbTXI4NIsSD9URSz4NBPRxWT
    -EBGopqF06YPmqHCS0EqVCOeLXMo39oTZRJpa38vCEbOEQWnRY+ZKybtE1obh+tBbyIomLke
    FrkNcvhO+OcEHQ1YsYYdkP3yh+VOZ-uyxY-LZEMuyv2kFvv61YZsDtIFZEXkZ9g7KnvWFgId
    8k09108af06ex4a7PZIbSjoy2HftdFqMlMeqbhdVx9MNbTwMO6jFUrrBvfNazfSagKBdv3hq
    8wguGHRSa0b0IacJgSCu+6+jI2g1--E++++6+7dNxG8xKgjMW++++9k++++A++++I57jOaJX
    R12iN5-m8mX8Hmx8n3I68AfDGYoiAPHatS9Z8WpC9SPZIZ-kmmz89RM-gI9nAYgA3H9n3BH-
    99q0l47pVKeEj42hK2ipGd00ZZuEOr+hW7SIaduN-x9bK30EYtaQK78NbuTb0RGNaNWHKNJe
    XGvZL7GOK768AYsX-4mc1hViEooAZI4ZSI0lp9kIDJsi+3-9+kEI++++0++UOlUXq1WAEKY0
    ++-y-+++1++++3-mPqdZMrEl9aFjNapHqr9OA--xNsNzw+woMk77oqPw+AVd8+EQ16Eqt25M
    KuAU76og7u3TrpoNQdZoD5CoNvIfvNuJvzhuNsE2yx-gR8CkqSUFx+YMEIlkFT+XOXIPpkE1
    cXw7VUEXUVi0ASpC0-8WhkFHUdFUFX+bK-1Q2Gkdy-RNjwZ8BzftKWVLyWEYRxkecEfDtoes
    fVGwV18u2qeqBvKFuyTm2hT2uinBkROWXiWla2WxSm0lhPLRP1EPxmCVhZu+4quiI+iuP36t
    Ivb7yh3TrRSep-8ulZ0J1BNJAJ-zh4xQeBHlP7i8jl0pnhgL5HfbtNojv3mQTHp5qLOwU-uK
    5rJOrnfh2+DX3q-ENZMM7vG8T1JAKAWQhU98VqARu6he+Rvn39XBBUZr4mE7rcTbZx4WDpeq
    kohQOaGxsrdkdnQ74fTHN6P996vbUrfpUPUW1bflMYnPwKksbMxPsSImrtdhsNL6-FL9NFYR
    d2VpNHD+agUn9y4pZB+rZ519Ry1+IXzHGbZCcRSuR0Wd3-ZzOry-QIU0oVTX-meHJEvcDEfS
    fNl4PuwGAjQ1s6zOsXtB-cRFqzHkE+87HKzu4Cj97GClw4szBN+79igBwQGRxv8FTxYXbL37
    MqmreDoQqmiEbduRTecr4A8SaeFzWejx4Bj4diV7TNkmSEttISgYd6wuFMZEpYDK0+ciyxfg
    fGUqviWMKNv1XhghuHT-9M2NR7megz0JtpLalVzMduikjVrELyMvW3ywl5Zkb-hqk9uj42Wn
    2I3vhKH1JHryYxn604bk7M0Z+Sg0-YwUhO5HUe3kzor2UjJf7YAGaDeWNiATI2g1--E++++6
    +9Vg40Ae-Nscy+6++7c7+++8++++PLR7I4xn9b-VQypJLIzPA-FxFy6z5A398oc3PA-c8R92
    BebG7W2cElAeYdjQhVOdLRYC6KDvvvhq2ddGY8O7DKpyGCjfyr5iiGTCkxPqeuqhxHLwk8KG
    fcBmnP9yaPP-Tad6C6e9crThcwBUTNyueHOZzlRVb3Gs2YZAOdGOGF4ctvaFYubn9fh5FsQh
    W0F-A3YMgaHi84s5rkxY6mDbHafJkG1Hg56qHkV0lO1la06bvkWFg+Gd90YfUq41EKtUb8f6
    FxcWpx6OH+YiblC5CUu3szpQ412XFwN0KUWAd+Cbo9ClBYuA2adVZ9fJL7e1HGMx-cRAdoaA
    2H5GWN7X4EbZM-CRYGZUTCLwcNrETjgU40yQQ8YhOThYW8u2cM6-OOB2m-aNHhUDdX9+alhx
    7qC86Tmq-PeTArIqmN375Y5ei63A4ADZQyUlAtPXJeeGpqwuFJc+3UutHUpodbU4Bj6CfmaW
    byhfuqgdWuUIHxTjdK8Olm9W5Va43lEiQbjdNC9DiPS6shEE8yWKHeT011nxT38B31tHsoms
    3UNonzcwwpvBHdznHgUwxTmsshe3Tz7F-typab-QDTVC4+zdgL952tZTPyuoqthvyzh1HyUc
    RpHosVIt6wIXt5fSwX9yAb4zUoKl2IqYwZOK4Nzog+CbkKIEOqw45XrwuczFuCA2-qyPsHLU
    nH4CRdhSkac-yRfzOzGPEovMllPSv3I78C5-DyzL9Ll6lTnDDs45tFsEljbvMmUPDYxJwC7T
    vxU0ltotIkqXFg6tqHFlbcLi6d0rz8kAcJEjJ+maP0cNK5ZkUyAHPCuIrBKMYwnPcigWvwoE
    DGkNEsdVEKN3q-9xe81recfRlR2X2dzv2QXH-0xWsM+LkK12xyphRma9WVd3P9BPPLl6gyNJ
    X97Khk9LwxXeLTep+fEqXu7hP+TSgPLPLTNPVJQjHTuyHg6hzEnAZG5L-DXU7TOAujvkZTtP
    EiErf8mCvRrzejkbJDalY4KTjqpG7D7vSTxXyQMA2TlFzEJEGkA23+++++U+y4kM6pktijHf
    +U++SEQ+++Y+++-JPaZoAGtkMLDJJIpj4X2EjIT8TlWdZFMOUY7mG2CIEk8VEW6euV73DNfR
    mS7WPAjqEV1BTyyA3k72HLi78bK3KAy5rrXanLVLFwTjxVkR5g-Du1UI+TAqwDCtSL2ShRRZ
    a-VL8S3Ci0+pD+WJcluLfeUq4fhogdU2RaZRL7krE0U3ISL-cIQrlvkNTPjcAmRhY2Or6NIn
    el-mb-ZsB+vupjX89EoWZ5sRhSQE5sH10Y1uH+YtExSCwaUWDR1DCXCLCSMUK4k+DZa8vBIG
    3d6m8+A6K+XbV+t9A6wUx-8aIeyDxRqII5c2GKs-ZeNoM-OOIj+NCvlbfNwD1ksDGYqFviaj
    RQaWp+5RcwUkqXluWUYDR1enc3Hi8+xF68rGdPwDIh4ecsHrfDfWV7r6X3J4-qTMq1BiFeyi
    3AcIh7UhyYDX4kmOVfkHb6f8bj-VF7KAFkV9mkK42KxikFJY582KlHcP+4v826lihK3IfGsf
    BICkQUyE1PQttIQ4TiycnjNJ3RPdOpHWAwCwR9U7qp2maxNGp1ZF1uCjslyMVTcPreRzw9NC
    nebFsv6QYpw3gM7VZ6uvC3L00KtFpD1AJc87FNc9lq6gILhRecd+PiENuV0rgKPpwFhwObNv
    Rt5jvTaeHQqz7PKCBA8bA7+OOJO0Yve60TEPA4n+k-XPAOICPSVHylHcm1X4EafqqJejc5L0
    nyISrVIYCplr-hRdiiMueFmNp0OBcOhsWiD7K-1A3VlmkwOLe+-1wi3aekov2y3eGHMEeIze
    RC6cPy9LBwGhs+MnkOD5AkaNaJadoA4s90-AY+d4gmqMrn2JCAtmhF5+InrcxgU63uk6B24u
    0HJh+h+JFTLnRGcAUF-+7WU+HHJcl5mnbl97y7tGQceIUX89XKIjUSH1mSyCjxALqqcN4wLM
    y2pqtXfj27L+2NApAgFaPJVzQHvPC3R+hodMXzZuZ1PBxoMDjRrezrAD+JCEFAmY+TTKcigE
    WOwPu7wGUD3fwEhEGk20AUg8++++++-9LMUVMGwRgf+3++0k-E++1U+++++++++++0++hc2+
    ++++PLR4MLBoJ4ZhNGtuOL-EGk20AUgI++++0+-aVFEXTpNAVXg-++--+U++0E++++++++++
    +0++hc5Q-E++JKtdR12iN4NhI2g-+X693+++++U+aZbp6fpOmxW6++++j+++++k+++++++++
    +E+U+9O-DUQ++3-mPqdZMrEl9aFkQZ-9+E6m0lE++++6+0-f40DMC6l-OE6++5s2+++A++++
    ++++++2+6+0qUT+5++-EQaxeNKBoAGtYPqNEGk20AUgI++++0+0sP-UX8UKS8DU0++0O0E++
    ***** END OF BLOCK 1 *****

    *XX3402-004641-240897--72--85-49589------MWIPOS.ZIP--2-OF--2
    0U+++++++++-+0++hc410U++PLR7I4xn9b-VQp-9+E6m0lE++++6+DVg40BQCPfouk6++5Y5
    +++7++++++++++2+6+0qUOAB++-JPaZoAGtkMLBEGkI4++++++M+-U-K+E++hF++++++
    ***** END OF BLOCK 2 *****

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]