procedure TfmSelect.InsertUpdate;
var
sndbufo : Pointer;
ename_1, job_1, hiredate_1 : AnsiString;
ret, empno_1, mgr_1, sal_1, comm_1, deptno_1, rlen : Integer;
begin
IsExist; (프로시저 호출)
end;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TfmSelect.IsExist;
var
sndbufi : Pointer;
empno_2 : longint;
rlen_1 : integer;
FdlName, ename_2 : String;
begin
:
: (내용 생략)
:
end;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
수고 많으십니다.
위 두 프로시저에서요...........
InsertUpdate 프로시저에서 IsExist 프로시저를 호출해서 사용하는데요....
IsExist 프로시저는 자체적으로 테스트 해봤을때 이상이 없습니다.
근데 InsertUpdate 프로시저에서 IsExist 프로시저를 호출해서 사용하니
수행이 잘 되다가 InsertUpdate 프로시저를 마치는 부분 마지막에서
윈도우 에러메시지
"이 프로그램에서 잘못된 연산을 수행하여 종료됩니다.
문제가 지속되면 프로그램 구입업체에 문의하십시오."
라는 에러가 나네요....
제가 프로시저 스코프 규칙에 어긋나게 사용을 하였나요?
아님... 변수가 어딘가 충돌?
고수님들의 고견을 기다립니다.
아래 코드만으로 어디가 잘못된는지 찾기가 어려운 것 같습니다.
Pointer 변수를 선언하신걸로 봐서
메모리를 다루는 부분에 버그가 있거나
질의 결과를 처리하는 부분에서 오류가 있거나...
등이 원인 인것 같으데요~
좀더 많은 Source Code를 주세요.
글구 Scope 문제는 Class내 선언된 함수이므로
접근시 전혀 문제가 없어 보입니다.
즐거운 하루 보내세요 ~ ^^;