New account

AnsiInsertStr  Bottom

  • kif
    • Registered: Oct 30, 2008
    • Last visit: Mar 18, 2009
    • Posts: 10
    Link to this post Posted: Nov 05, 2008 - 08:46 PM
    Hi again

    An error in System.pas makes it difficult to insert a shortstring into an ansistring :

    Code

    PROCEDURE AnsiInsertStr(CONST Source:String; VAR S:AnsiString; Index:LONGINT);

    VAR ss:AnsiString;

    BEGIN

    ss:=Source;

    AnsiInsert(s,ss,Index);

    END;


    Should be :

    Code

    PROCEDURE AnsiInsertStr(CONST Source:String; VAR S:AnsiString; Index:LONGINT);

    VAR ss:AnsiString;

    BEGIN

    ss:=Source;

    AnsiInsert(ss,s,Index);

    END;


    Kim Foder
  • wdsibyl
    • Registered: Dec 04, 2006
    • Last visit: Dec 29, 2011
    • Posts: 89
    Link to this post Posted: Nov 06, 2008 - 05:31 AM
    Hello Kim!

    Thank you for the correction.
    I have correct it in the System.pas.

    bye,
    Wolfgang

Users on-line

  • 0 users

This list is based on users active over the last 30 minutes.