Q&A

  • 문자열을 축출하는 방법을 알고싶습니다.
메모장에있는 문자열들중에서 특정문자를 검색해서 있을경우 Listbox로 옮길려고 합니다.
예를들어 '이제부터 시작합니다  그래서.. 중간  또한.. 마지막 입니다.'이런자료들이 들어가 있습니다.
글자가 들어있는 부분을 '시작'의 '시' 와 '마지막'의 '막'까지 Listbox컴포넌트에 복사를 할려고 합니다.


물론 memo1컴포넌트에  '시작','중간','마지막'라는 문자열이 한개가 들어있을수도있고 또한  몇개가 들어있을수도 있습니다.

고수님들!  
부탁드립니다.
1  COMMENTS
  • Profile
    권희수 2002.02.15 20:35

    procedure TForm1.Button1Click(Sender: TObject);
    var
      sPos,ePos:integer;
    begin
      sPos := pos('시',Memo1.Lines.Text);
      ePos := pos('막',Memo1.Lines.Text);
      Listbox1.Items.Text := copy(Memo1.Lines.Text,sPos,ePos-sPos);
    end;