function TFedit.registercheck(par1, par2, par3, par4, par5, par6 : string): boolean;

var

reqry : TQuery;

recordcnt : integer;

begin

reqry := TQuery.Create(self);

reqry.DatabaseName := DM.Query1.DatabaseName;

with reqry do

begin

Close;

SQL.Clear;

sql.Add('select count(*) as reccnt from toji'+par1);

sql.Add(' where dong =:dong and jibun =:jibun');

sql.Add(' and (Build =:build or :build = '''')');

sql.add(' and (builda =:builda or :builda = '''')');

sql.add(' and (buildb =:buildb or :buildb = '''')');

parambyname('dong').asstring := par2;

parambyname('jibun').asstring := par3;

parambyname('build').asstring := par4;

parambyname('builda').asstring := par5;

parambyname('buildb').asstring := par6;

open;

FetchAll;

recordcnt := fieldbyname('reccnt').asinteger;//fieldbyname('recnt').AsInteger;

close;



if recordcnt = 0 then // 자료가 없으면

result := true // 자료삽입

else

result := false; // 자료수정

end;

end;



여기서 오류가 계속 나는데 어떻게 해야 하는지 갈켜주시고여

registercheck 가 어떤건지 알고 싶어여.

상세하게 고수님들 갈켜주세영...제발....