김델초 wrote:

> 고수님께 제차 질문드립니다

> line is beauty

> table is beauty

> ...

> start line is beauty

> check sum

> no check sum

> end.

> ....

> seoul is beauty

> busan is beauty

>

> 이런식으로 구성된 text문입니다

>

> 질문의 요지는 ...

> start로시작되는 문자열에서부터

> end까지만 검색하고자합니다 물론 하나하나 문자열을 찾으면되지만

> 이런식으로 구성된 문자열의 종류가 많습니다

>

> 즉, 동시에 여러문자열을 검색할때는 어떻게합니까?

> 고수님들 답변부탁합니다

> /////////////////////////////////////////////////////////

아래것을 상황에 맞게 고쳐서 사용해보세요

일단 원문장이 Memo1에 있고 버튼 클릭시 Memo2로 원하는 라인을 카피하는것으로 예를 들었습니다.

procedure TForm1.Button1Click(Sender: TObject);

var

i : integer;

copy_write : boolean;

begin

copy_write := False;

Memo2.Clear;

for i := 0 to Memo1.Lines.Count-1 do begin

if (Pos('start',Memo1.Lines.Strings[i]) > 0)or(copy_write) then begin

copy_write := True;

Memo2.Lines.Add(Memo1.Lines.Strings[i]);

end;

if (Pos('end',Memo1.Lines.Strings[i]) > 0) then copy_write := False;

end;

end;

여기서 막혀서 엄청 여러날 고민