Columns간격을 넓히면 반응하네요.
XL.Cells[1,2]].Value:=StringReplace(FieldByName('sMemo').AsString, Chr(13)+chr(10), chr(10), [rfReplaceAll])) ;
XL. Columns["B:B"].ColumnWidth := 100;
XL.Columns.AutoFit;
:
엘레코스 님이 쓰신 글 :
: 안녕하세요?
: 엑셀로 자료를 전환중에 있는데요,
: Memo컴포넌트에 아래처럼 3줄을 넣어 디비에 저장하였습니다.
: 줄끝마다 엔터(Enter)를 쳤구요.
:
: 안녕하세요이번주에도좋은일만있으시길(엔터)
: 안녕하세요이번주에도좋은일만있으시길(엔터)
: 안녕하세요이번주에도좋은일만있으시길
:
: 위의 3줄을 엑셀에 보여줄때는 하나의 셀안에 3줄 그대로 보여주고 싶습니다.
: 아래코드를 이용해 보았지만 맨아래에 보이는 것처럼 여러줄로 보여주고 있습니다.
: XL.Cells[1,2]].Value:=StringReplace(FieldByName('sMemo').AsString, Chr(13)+chr(10), chr(10), [rfReplaceAll])) ;
: XL.Columns.AutoFit;
:
: 어떻게 하면 엑셀에서도 맨위에 입력한 형태로 보여줄 수 있을까요?
: 경험있으신 분들의 도움을 부탁드립니다.
:
: 안녕하세요
: 이번주에도
: 좋은일만있
: 으시길
: 안녕하세요
: 이번주에도
: 좋은일만있
: 으시길
: 안녕하세요
: 이번주에도
: 좋은일만있
: 으시길
|