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;
:
: 고수님들 체크좀 해주시면 감사하겠습니다.
|