**아래에 중복 되는 부분을....

끌어다 쓰기 편하게... 함수로 나타낼려면 어떻게 해야 될까요?**



else if cnt = 0 then

begin

with Query2 do

begin

Close;

SQL.Clear ;

SQL.add('update zipcode set ');

SQL.add('zcode = :zcode ,');

SQL.add('addr_si = :addr_si ,');

SQL.add('addr_gu = :addr_gu ,');

SQL.add('addr_dong = :addr_dong ,');

SQL.add('ddd = :ddd ,');

SQL.add('adminid = :adminid ');

SQL.add(' where zcode = :zipcode ') ;

parambyname('zcode').asstring := edit1.text;

parambyname('addr_si').asstring := edit2.text;

parambyname('addr_gu').asstring := edit3.text;

parambyname('addr_dong').asstring := edit4.text;

parambyname('ddd').asstring := edit5.text;

parambyname('adminid').asstring := edit6.text;

parambyname('zipcode').asstring := edit7.text;

execsql;

end;//with begin

Query1.Close;

Query1.open;

end

end //small if begin



Else if edit1.text = edit7.text then

begin



with Query2 do

begin

Close;

SQL.Clear ;

SQL.add('update zipcode set ');

SQL.add('zcode = :zcode ,');

SQL.add('addr_si = :addr_si ,');

SQL.add('addr_gu = :addr_gu ,');

SQL.add('addr_dong = :addr_dong ,');

SQL.add('ddd = :ddd ,');

SQL.add('adminid = :adminid ');

SQL.add(' where zcode = :zipcode ') ;

parambyname('zcode').asstring := edit1.text;

parambyname('addr_si').asstring := edit2.text;

parambyname('addr_gu').asstring := edit3.text;

parambyname('addr_dong').asstring := edit4.text;

parambyname('ddd').asstring := edit5.text;

parambyname('adminid').asstring := edit6.text;

parambyname('zipcode').asstring := edit7.text;

execsql;

end; //with begin

Query1.Close;

Query1.open;

end; //small if begin

end; //big begin