어제 오후 5시 이후에 힘들게 올린 글이 삭제되어있어서뤼...

어쩔수 없이 허탈함을 가지고 다시 글을 올립니다...

제가 올린 질문이 사라졌군여... 어떻게 이런일이... --;;

질문이 생각도 나지 않을정도로 화가 나네염 ㅜ.ㅡ

질문을 따로 카피해서 항상 리플과 함께 문서화하던게 있어서 그대로 올립니다...

부디 답변 좀 부탁드립니다 ㅜ.ㅜ

======================================================================

안녕하세요 플밍 초보자입니다...

개발환경은 Win98 & Delphi5 & Oracle9i 입니다...

다름이 아니옵고 현재 사용하던 프로그램이 수행되는 순서가...

1. Form에서 DBRichEdit에 txt로 Data를 넣음

2. 입력버튼 클릭으로 DB의 Report라는 필드에 Long형으로 저장

이렇게 수행되던 것에서

한가지 기능을 추가하려 합니다...

저장된 데이터를 Excel로 가져오는데염...

문제는 DBRichEdit에 레코드에서 각 컬럼을 카운트해서 for loop을 돌려줘야하는데 count를 해야할 방법을 찾지를 못하겠군여...

보통 DBGrid에서는여...

with Query1 do
begin
   for i := 0 to DBGrid1.Columns.Count - 1 do
     vSheet.Cells[1,i+1] := RxDBGrid1.Columns[i].Title.Caption;                //첫번째줄에 타이틀 저장
   First;
   Screen.Cursor := crHourGlass;

// DBGrid에 있는 내용을 엑셀로 옮긴다.
// 내용은 두번째줄부터 들어가기 때문에 j의 초기값이 2이다. (첫번째줄은 타이틀이 들어가 있음)

   j := 2;
   while Not Eof do
   begin
     for i := 0 to DBGrid1.Columns.Count -1 do
       vSheet.Cells[j, i+1] := DBGrid1.Columns[i].Field.Text;
     Inc(j);
     Next;
   end;

   vRow.Rows[1].HorizontalAlignment := xlCenter;

   for i := 0 to DBGrid1.Columns.Count - 1 do
     if DBGrid1.Columns[i].Field.DataType = ftString then
       vColumn.Columns[i+1].NumberFormatLocal := '@';

// 각 셀의 크기를 자동으로 맞추어 준다.
   for i := 1 to DBGrid1.Columns.Count do
     vColumn.Columns[i].EntireColumn.AutoFit;
   EnableControls;                              //next 되는 상황.. 보이지 않게 하기 위함!!
   Screen.Cursor := crDefault;
   ShowMessage('Excel 로 자료를 모두 보냈습니다.');
   XL.Visible := True;
end;

이런식으로 컬럼을 카운트해주는데 DBRichEdit에서는 어떻게 카운트해줘야할지 어떤 속성을 써야하는지 도무지 못잡아내겠네염...

======================================================================

고수님들 좀 갈쳐주세염... ㅡ,.ㅡ

수욜까지 마감인디 --;; 피가 마르네염... 거의 일주일째 이것땜에 헤매다가 질문 올립니다...

부탁드립니다...m(__)m