자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Delphi Richedit에 대해 질문 있습니다. RTF코드 추출 때문에 그렇습니다.

2013.12.31 16:49

한림대의료원정보기술센터 조회 수:5747

안녕하세요

이번년도에도 많은 도움을 주셔서 정말 감사합니다.

내년에도 XE5가 잘 되어 번창하시길 바랍니다.

0 한림대의료원

1 데브기어

2 만만세

3 새해 복 많이 받으세요 

저렇게 리치에디터내용이 있는 경우에

3번줄의 RTF코드를 추출하고 싶습니다.

새해 복 많이 받으세요  이렇게 그대로요 RTF코드 추출도 좋고 아니면 리치에디터에 카피가 되도 좋고요

혹시 방법이 없을 까요??

아 한라인씩 delete(x) 하는 명령어를 쓰지 않고 추출하는 방법을 여쭙는겁니다. ^^;;;

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 3

• 

  Humphery

  2013.12.31 22:42

  선택된 영역을 클립보드 복사, 붙여넣기 하는 방식으로 사용구현해 봤습니다.

  
  

  function RELineIndex(RE: TRichEdit; CharPos: integer): integer;

  begin

    Result := RE.Perform(WM_USER +54, 0, CharPos);

  end;

  
  

  function RELineStart(RE: TRichEdit; Index: integer): integer;

  begin

    if Index < 0 then

      Result := 0

    else

      Result := RE.Perform(EM_LINEINDEX, Index, 0);

  end;

  function RELineLength(RE: TRichEdit; Index: integer): integer;

  var

   n, len : integer;

  begin

    Result := -1;

    n := RE.Perform(EM_LINEINDEX, Index, 0);

    len  := RE.Perform(EM_LINEINDEX, Index +1, 0);

    if len > 0 then

      Result := len -n;

  end;

  
  

  function RELineEnd(RE: TRichEdit; Index: integer): integer;

  var

   n : integer;

  begin

    n := RE.Perform(EM_LINEINDEX, Index, 0);

    Result :=  RE.FindText(#10, n, $7FFFFFFF, []);

  end;

  
  

  procedure TForm3.FormCreate(Sender: TObject);

  var

    s, e: Integer;

  begin

    s := RELineStart(RichEdit1, 3) + 2;

    e := RELineEnd(RichEdit1, 3);

  
  

    RichEdit1.SelStart := s;

    RichEdit1.SelLength := e - s;

  
  

    RichEdit1.SelAttributes.Style := [fsItalic, fsUnderline];

  
  

    RichEdit1.SelStart := 0;

    RichEdit1.SelLength := 0;

  end;

  
  

  procedure TForm3.Button1Click(Sender: TObject);

  var

    s, e: Integer;

  begin

    s := RELineStart(RichEdit1, 3) + 2;

    e := RELineEnd(RichEdit1, 3);

  
  

    RichEdit1.SelStart := s;

    RichEdit1.SelLength := e - s;

  
  

    RichEdit1.CopyToClipboard;

    RichEdit2.PasteFromClipboard;

  end;
  첨부 [1]

  • RichEditSelcetion.zip [File Size:4.1KB/Download:116]

  댓글

• 한림대의료원정보기술센터

  2014.01.01 17:23

  답변 감사합니다
  이런 기발한 생각을 하시다니 정말 대단하십니다
  
  그런데 한가지 의문점이 있습니다
  우선 카피를 명령어를 쓰느데요
  말씀해주신 방법을 구현 하게 되면 한 pc에서 적어도 하루에 몇천번은 거뜬히 실행할것 같은데요
  혹시나 메모리 문제가 없을까요
  6개병원을 xe2로 오픈해 봤는데요 저 카피 명령어나 클립보드 오픈 에러가 많이 나더라고요
  선생님 생각은 어떠세요

  댓글

• 한림대의료원정보기술센터

  2014.01.03 17:38

  Humphery 님 덕분에 해결됐습니다. 감사합니다.

  카피 명령어를 쓰지 않고 한줄의 rtf코드를 가져옵니다.

  혹시 필요한분 있을지 몰라 올렸놓겠습니다.

  
  

  type

          TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte;

            cb: Longint; var pcb: Longint): Longint; stdcall;

  
  

          TEditStream = record

              dwCookie: Longint;

              dwError: Longint;

              pfnCallback: TEditStreamCallBack;

          end;

  
  

  function OutCallback(dwCookie: Longint; pbBuff: PByte; cb: Longint;

    var pcb: Longint): Longint; stdcall;

  begin

      if cb > 0 then

          pcb := TStream(dwCookie).Write(pbBuff^, cb);

      Result := 0;

  end;

  
  

  /* 원본 리치에디터, 한줄이 복사될 리치에디터, 원본 리치에디터의 라인 */

  procedure TForm.GetRTFTextCopy(redtFrom, redtTo: TRichEdit; ToLine: Integer);

      procedure GetRTF(re: TRichEdit; stream: TStream);

      var

          editstream: TEditStream;

      begin

          editstream.dwCookie := Longint(stream);

          editstream.dwError := 0;

          editstream.pfnCallback := OutCallback;

          /* 이줄이 중요합니다.  */

          re.Perform(EM_STREAMOUT, SF_RTF or SFF_SELECTION, Longint(@editstream));

          stream.Position := 0;

      end;

  var StartPosi, SelectPosi : Integer;

      mstream: TMemoryStream;

  begin

      StartPosi := redtFrom.Perform(EM_LINEINDEX, ToLine, 0);

      SelectPosi := Length(TrimRight(rchText.Lines.Strings[ToLine]));

  
  

      redtFrom.SelStart := StartPosi;

      redtFrom.SelLength := SelectPosi;

  
  

      if SelectPosi = 0 then

      begin

          redtTo.Clear;

          redtTo.Text := #13#10;

      end

      else

      begin

          mstream := TMemoryStream.Create;

          try

              GetRTF(redtFrom, mstream);

              redtTo.Clear;

              redtTo.Lines.LoadFromStream(mstream);

          finally

              FreeAndNil(mstream);

          end;

      end;

  
  

  end;

  
  

  
  

  
  

  
  

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	20051
공지	유용한 관련 사이트	관리자2	2014.03.20	58960
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	102578
3019	링크 에러 [1]	닉엄뜸	2013.10.23	5893
3018	jar파일을 import해서 개발할수없나요... [1]	why	2013.10.23	6349
3017	class tspanel not found. 해결방법 부탁드립니다. [3]	으하하	2013.10.31	9108
3016	XE4로 개발한 프로그램 설치 파일 만들기. [2]	좋은사람	2013.10.31	7848
3015	class TAdvGridWorkbook not found 경우는 어떤 방법이 있나요? [1]	으하하	2013.11.01	7789
3014	아래 링크 에러 답변 안달아주시나요 ? [3]	닉엄뜸	2013.11.02	5426
3013	RichEdit 관련해서 여쭤보고 싶습니다. [2]	한림대의료원정보기술센터	2013.11.15	7227
3012	Richedit에 대해 하나만 더 여쭙겠습니다. [1]	한림대의료원정보기술센터	2013.11.16	6019
3011	ios device deploy 오류 [3]	awleeck	2013.11.17	6899
3010	C++ Builder 2010에서 Boost lib 컴파일 문제	NILS	2013.11.21	5501
3009	앱스토어 등록시 오류가 발생합니다. [1]	권순길	2013.11.25	6297
3008	델파이 파이어몽키 안드로이드 앱 내에 스플래시 스크린추가 [1]	쿠키	2013.12.02	9522
3007	XE5를 사용하여 아이폰앱개발을 동영상보고 따라하는데.. 도와주세요 [3]	임우식	2013.12.06	6667
3006	rtl160.bpl 파일을 찾을 수 없습니다. [1]	괴도코난	2013.12.11	7102
3005	XE3 패치 여부 건	닉엄뜸	2013.12.12	7
3004	안드로이드 와 MSSQL 연결중 Data.DBXMSSQL.dcu 오류발생 건입니다. [1]	성유리	2013.12.20	10729
3003	컴파일 에러 [2]	망치	2013.12.23	6599
3002	델파이5에서 중국어를 지원할 수 있나요? [1]	하승수	2013.12.24	5729
3001	XE2 버젼에서 idHttp 에서 오류 [1]	파란하늘	2013.12.31	6335
»	Richedit에 대해 질문 있습니다. RTF코드 추출 때문에 그렇습니다. [3]	한림대의료원정보기술센터	2013.12.31	5747

첫 페이지 9 10 11 12 13 14 15 16 17 18 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그