procedure TFrm_Crs_101.Edit1Change(Sender: TObject);

begin

if edit1.text = '' then exit ;

Search_fundname;

end;



procedure Search_fundname;

//var

// i_index : integer;

begin

try

Frm_Crs_101.datasource1.dataset.Locate('단축명', Frm_Crs_101.edit1.text, [loPartialKey]);

// i_index := Frm_Crs_101.q_retreview.moveby(14);

// Frm_Crs_101.q_retreview.moveby(i_index * -1);

except

end;

end;



procedure TFrm_Crs_101.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key <> VK_RETURN then

begin

key := 0 ;

exit ;

end ;

key := 0;

Button1.setfocus;

end;



위의 Source는 주식프로그램의 종목명으로 종목코드를 찾는 프로그램 입니다.



그중에서도 종목명을 입력하는 Edit Box에 관련된 Source입니다.



고객사에 납품을 하였는데 대금을 받지 못하고 있네요...



Client는 windows2000이고 (Windows98 에서도 동일한 오류 발생)

DataBase는 Informix 7.3, BDE를 사용합니다.



사용자가 100명쯤 되는데 하루에 5-10건 정도가 오류가 나네요...



"오류 메시지는 a.exe(작성한 프로그램명)에서 오류가 발생하였습니다.

오류로그를 작성하고 있습니다." 라는 메시지가 뜨고 에러가 발생한 Address는

몇 개가 있지만 예를 들면 0043EEEF등등 입니다.



고수들의 한 수 가르침을 목놓아 기다리겠습니다...



또 한가지 추가합니다.



혹시 위의 오류를 수정할 수 있다고 생각되시는 분은 초빙을 해서 프로그램을

함께 수정할 용의도 있습니다.



물론 사례는 당연하구요...