돌아버려 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;



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

델파이에 replace란 함수는 없는데요... ^^



돌아버려 wrote:

> 꾸벅..안녕하세요.

>

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

> 소스입니다

>

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

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

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

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

>

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

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

>

> 알려주세요