음.. 답변이 될지 모르겠지만요

제가 코딩했던 부분을 올릴께요..

비슷한 내용의 코딩이라서 보시면 답이 나올듯....

안되시면 다시 메세지 주세요..



<!--CodeS-->

procedure TfrmC0108.SpeedButton2Click(Sender: TObject);
var m_Char, m_String : String;
    i : integer;
begin

   if cobSection.Text = '' then
   begin
      ShowMessage('구분자를 입력하여주세요!');    // 구분자를 사용자가 지정할수 있거든요..
      Exit;
   end;

   m_Char := cobSection.Text;
   if cobSection.Text = 'Tab' then m_Char := #9;

   Try
      stgData.RowCount := memText.Lines.Count+1;

      for i := 1 to memText.Lines.Count do    // 각 데이터마다 레코드로 나뉘어져 있는데 님 코딩에서는 '@' 문자의 카운트를 구해서 For 문을 돌리는 방법도 있겠네요.
      begin

         m_String := memText.Lines[i-1];

         with stgData do   // 스트링그리드에 먼저 보여주고 나서 해당 내용을 디비에 저장하는 겁니다.
         begin                    // 님의 경우에는 StringList에 저장해서 디비에 저장하는 방법도 있겠네요.

            Cells[1,i] := IntToStr(i); //'순번';
            Cells[2,i] := Copy(m_String,1, Pos(m_Char, m_String) - 1 );        //가입자
                          Delete(m_String, 1, Pos(m_Char, m_String) );

            Cells[3,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'상품클래스';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[4,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'상품구분';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[5,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'상품코드';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[6,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'순번';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[7,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'특수/할인코드';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[8,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'시작일자(월)';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
            Cells[9,i]  := Copy(m_String,1, Pos(m_Char, m_String) - 1 );//'/종료일자(월)';
                           Delete(m_String, 1, Pos(m_Char, m_String) );
         end;

      end;
       lblCount_2.Caption := lblCount.Caption;
   except
   end;

end;

<!--CodeE-->