조가현 wrote:

> 문자열에 관한 메소드

> 삭제, 추가, 치환등을 할때 쓰이는 메소드와

> 입.출력에 관한 메소드를 원합니다.

> 인터넷을 헤메고 있는데... 좀 가르쳐 주셔요..

> 메일은 jojo99@kebi.com 입니다.

> 꼭 부탁드립니다.



문자열 삭제는 delete() 를 쓰면 되고

문자열 추가는 + 연산자로 문자열을 더하면 되고

치환은 아래 소스와 같습니다

// 아래의 함수는 주어진 문자열에서 특정 문자열을 찾아서 다른 문자열로

// 해당 부분을 바꾸는 함수입니다

// 만약 SearchAndReplace( 'this,is,a,test', ',', ' ' ) 처럼 한다면

// 결과는 중간에 comma(',') 가 전부 공백으로 바뀌 문자열을 얻을 수 있습니다

// 'this,is,a,test' -> 'this is a test'



function SearchAndReplace(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;