Unit

SysUtils

Category

string handling routines

type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Description

StringReplace replaces occurrences of the substring specified by OldPattern with the substring specified by NewPattern. StringReplace assumes that the source string, specified by S, may contain Multibyte characters.

If the Flags parameter does not include rfReplaceAll, StringReplace only replaces the first occurrence of OldPattern in S. Otherwise, all instances of OldPattern are replaced by NewPattern.

If the Flags parameter includes rfIgnoreCase, The comparison operation is case insensitive.

위의 함수를 사용하시면 안되나요?

그리고 아래 문제는..제가 보기엔..

temp := memo.text;
P:=POS(Hedit1.text,temp);
A1:=COPY(temp,1,P-1);
DELETE(temp,1,P); <- 여기 결과를

Memo.text:=A1+ Hedit3.text + temp; <-여기에서 붙여줘야할거 같습니다.

// 안녕하세요  김영대( http://www.howto.pe.kr ) 입니다
// 전에 제가 올렸던 팁인데 참고해 보세요

// 아래의 함수는 주어진 문자열에서 특정 문자열을 찾아서 다른 문자열로
// 해당 부분을 바꾸는 함수입니다
// 만약 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;