[alexnov]

Ребята как написать процедуру эту добавления компа в таблицу ADOTable_Comps не пойму???

Код:

procedure Add_pc_to_db(comp_name:string);
var i:integer;
begin
for i:=0 to DataModule1.ADOTable_Comps.RecordCount do
if  DataModule1.ADOTable_Comps.FieldValues['compname'].asstring<>comp_name then
                  DataModule1.ADOTable_Comps.FieldValues['compname'].asstring:=comp_name;

if DataModule1.ADOTable_Comps.Modified=true then DataModule1.ADOTable_Comps.Post;
end;

lmikle: пользуемся тегами!!!