For I := 0 to   nCount - 1 do


초보자 님이 쓰신 글 :
:
: procedure Tfrm0708.SetData ( szRealcode : String ;
:                              szName2 : String;
:                              szRealName : String );
: var
:   I : integer;
:   Data : String;
:   GridData : String;
: begin
:
:      Data := autosell.GetFieldData( 'OutBlock', szName2 )
:     For I := 0 to autosellGrid.RowCount-2   do
:     begin
:       GridData :=  autosellGrid.Cells[2,I+1];
:       if  GridData = szRealcode then
:
:       autosellGrid.Cells[3,I+1] := Data;
:
:       End;
: end
:
:
: procedure Tfrm0708.autosellQReceiveData(ASender: TObject;
:   const szTrCode: WideString);
:
:
: var
: //Data : WideString;
: Data2 : WideString; /
: I : Integer;
: nCount : Integer;
: begin
:
:    nCount :=autosellQ.GetBlockCount('t8407OutBlock1');
:    For I := 0 to   nCount  do
:    begin
:
:
:       data2 := autosellQ.GetFieldData('OutBlock1','shcode',I);
:       SetData ( data2 ,'price' , szTrCode );     
:         ====================> setdata 함수 호출하고 setdata에 있는 for문 다  돌고나서  access viloataion이 생기네요
:            setdata에 값들은 잘 들어가는 것 같구요... 에러 메시지 첨부합니다..
:
:    End;
:
: 고수님들 체크좀 해주시면 감사하겠습니다.