Q&A

  • REPLACE 함수.에서
꾸벅..안녕하세요.



다름이 아니라 replace 함수를 이용하려 하는데 자꾸 에러가 떠서요.

소스입니다



str := ' INSERT 테이블(A,b,c) '+

' values( ''@p0'',''@p1'',1)';

Replace(str,'@p0',A);

Replace(str,'@p1',b);



대강 요런 문인데..replace 에서 identifier 에러가 납니다.

users 절에 선언을 해줘야하는듯 한데..알수가 없내요.



알려주세요

2  COMMENTS
  • Profile
    이상우 2001.03.22 01:59
    돌아버려 wrote:

    > 꾸벅..안녕하세요.

    >

    > 다름이 아니라 replace 함수를 이용하려 하는데 자꾸 에러가 떠서요.

    > 소스입니다

    >

    > str := ' INSERT 테이블(A,b,c) '+

    > ' values( ''@p0'',''@p1'',1)';

    > Replace(str,'@p0',A);

    > Replace(str,'@p1',b);

    >

    > 대강 요런 문인데..replace 에서 identifier 에러가 납니다.

    > users 절에 선언을 해줘야하는듯 한데..알수가 없내요.

    >

    > 알려주세요



    안녕하세여.. 구지 Insert 문을 사용하실거라면



    Close;

    Sql.Clear;

    Sql.Add(' Insert 테이블 ');

    Sql.Add(' (A, B, C) ');

    Sql.Add(' Values ');

    Sql.Add(' (:A, :B, :C) ');

    PramByName('A').AsStirng := 'A';

    PramByName('A').AsStirng := 'A';

    PramByName('A').AsStirng := 'A';

    ExecSql;



    이렇게 하셔도 됩니다..

    그리고 Replace 기능의 function 은



    function StrReplace(sSrc, sLookFor, sReplaceWith: string ): string;

    var

    nPos,

    nLenLookFor : integer;

    begin

    nPos := Pos(sLookFor, sSrc);

    nLenLookFor := Length(sLookFor);

    while(nPos > 0)do

    begin

    Delete( sSrc, nPos, nLenLookFor );

    Insert( sReplaceWith, sSrc, nPos );

    nPos := Pos( sLookFor, sSrc );

    end;

    Result := sSrc;

    end;



    이걸 사용하여 보세요..!

  • Profile
    kylix 2001.03.20 20:50
    델파이에 replace란 함수는 없는데요... ^^



    돌아버려 wrote:

    > 꾸벅..안녕하세요.

    >

    > 다름이 아니라 replace 함수를 이용하려 하는데 자꾸 에러가 떠서요.

    > 소스입니다

    >

    > str := ' INSERT 테이블(A,b,c) '+

    > ' values( ''@p0'',''@p1'',1)';

    > Replace(str,'@p0',A);

    > Replace(str,'@p1',b);

    >

    > 대강 요런 문인데..replace 에서 identifier 에러가 납니다.

    > users 절에 선언을 해줘야하는듯 한데..알수가 없내요.

    >

    > 알려주세요