메모장에있는 문자열들중에서 특정문자를 검색해서 있을경우 Listbox로 옮길려고 합니다.
예를들어 '이제부터 시작합니다 그래서.. 중간 또한.. 마지막 입니다.'이런자료들이 들어가 있습니다.
글자가 들어있는 부분을 '시작'의 '시' 와 '마지막'의 '막'까지 Listbox컴포넌트에 복사를 할려고 합니다.
물론 memo1컴포넌트에 '시작','중간','마지막'라는 문자열이 한개가 들어있을수도있고 또한 몇개가 들어있을수도 있습니다.
고수님들!
부탁드립니다.
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;