for i:=0 to table1.recordcount-1 do
begin
table1.edit;
for j:=0 to table1.FieldCount-1 do
if table1.fields[j].asstring=nil thentable1.Fields[j].AsFloat :=0;
table1.post;
table1.next
end;
for i:=0 to table1.recordcount-1 do begin table1.edit; for j:=0 to table1.FieldCount-1 do if table1.fields[j].asstring=nil thentable1.Fields[j].AsFloat :=0; table1.post; table1.next end;