양효비 께서 말씀하시기를...

> 안냐세요.

> ㅅㅅ

> 여기서 정말 많은 고수분들에게 좋은 정보를 얻고 있습니다.

> 다름이 아니라요.

>

> var

> msg : string;

> begin

> msg : edit1.text;

> memo1.Lines.Add ( msg );

>

> 이렇게 해서 edit1에 있는 글을 memo1에 출력한다고 가정합니다.

> 그담에..흑흑 edit1에 있는 욕을 검출할려고 하는데요.

> 예를 들어..msg 에 'xx'라는 욕이 섞여 있다면 글을 쓰지 않게끔요.

> 그냥 xx라고 쓰는게 아닐테고..'야..너 xx하지?' 라고 하면

> 검사를 못하자나요 ㅠ.ㅠ

> 징징..제발 아시는분 답변좀

>



보통 문자열에서 특정 문자를 찾는 함수로 Pos가 존재 합니다.

function Pos(Substr: string; S: string): Integer;

procedure Delete(var S: string; Index, Count:Integer)



위와 같은 경우에는

var

msg : String;

pos1 : Integer;

begin

msg := edit1.Text;

pos1 := pos('xx', msg);

Delete(msg, pos1, 2);

memo1.Lines.Add(msg);

end;

하면 되죠.. ^^



Pos(