1. Forum
  2. AgoraNet
  3. AGN DEV

  • mpl quickie

    From Dream Master@46:1/145 to All on Wed Jan 28 02:44:00 2015
    From: dream master
    To: All
    Subj: function not working
    Date: 01/27/15 09:50
    Base: (D) MPL related

    Ok so I made this so you can replace a character with what ever you want but
    it is not working. Any one see errors? This is for my dorenet app mpl

    Function StrTran (source: string; old :string; new: string) : string
    var pp : integer
    begin
    while POS (old,source) <> 0 do
    begin
    pp := POS (old,source)
    delete (source, pp, length(old))
    insert(new, source, pp)
    end
    StrTran := Source
    end

    It is then called in the program as:

    st2 :=',999,'+bbsname+','+location+','+sysname+','+ '-N/A-' +',9600,CM,XA,'+ INA:'+ sysnumber;
    st := StrTran (st2, ' ', '_')

    any ideas?


    |08 ··[|15!|07dream master|15!|07DoRE|15!|07ACiDiC|15?|07demonic
    |08 ··[|15!|07dreamland|09.|07darktech|09.|07org

    --- Mystic BBS v1.10 A51 (Windows)
    * Origin: d i s t o r t i o n // d1st.org (46:1/145)
  • From g00r00@46:1/127 to Dream Master on Wed Jan 28 07:54:31 2015
    Ok so I made this so you can replace a character with what ever you want but it is not working. Any one see errors? This is for my dorenet app mpl

    You don't need it MPL has a lot of useful functions built in now. :)

    Here's an example:

    Var
    Str : String;
    Begin
    Str := 'hello world';
    Str := Replace(Str, 'world', 'planet');

    WriteLn (Str);
    End.

    --- Mystic BBS v1.10 A61 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
  • From dream master@46:1/102 to g00r00 on Wed Jan 28 16:04:34 2015
    On 01/28/15, g00r00 said the following...
    You don't need it MPL has a lot of useful functions built in now. :) Here's an example:
    Var
    Str : String;
    Begin
    Str := 'hello world';
    Str := Replace(Str, 'world', 'planet');
    WriteLn (Str);
    End.

    thank you i will give that a try. THe docs are not updated with mpl so i have to go through whats new to find them and so much changed in mpl lol Glad Gryphon got it some what caught up hehe

    --- Mystic BBS v1.10 A60 (Windows)
    * Origin: fluph.darktech.org (46:1/102)
  • From g00r00@46:1/127 to dream master on Thu Jan 29 02:43:01 2015
    thank you i will give that a try. THe docs are not updated with mpl so i have to go through whats new to find them and so much changed in mpl lol Glad Gryphon got it some what caught up hehe

    Yep, its behind. I did a bunch of it for the Wiki we had but the entire wiki was lost.

    --- Mystic BBS v1.10 A61 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
  • From Dream Master@46:1/145 to g00r00 on Thu Jan 29 11:27:40 2015
    on 01/29/15, g00r00 said...
    thank you i will give that a try. THe docs are not updated with mpl s have to go through whats new to find them and so much changed in mpl Glad Gryphon got it some what caught up hehe
    Yep, its behind. I did a bunch of it for the Wiki we had but the entire wiki was lost.

    Well that worked thanks. I will prolly need you to look at my mastermind mpl
    to make sure its right and suggestions.


    |08 ··[|15!|07dream master|15!|07DoRE|15!|07ACiDiC|15?|07demonic
    |08 ··[|15!|07dreamland|09.|07darktech|09.|07org

    --- Mystic BBS v1.10 A60 (Windows)
    * Origin: d i s t o r t i o n // d1st.org (46:1/145)