так я удаляю строки:
Код
table2.First;
gb:=0;
for j:=0 to Table2.RecordCount-1 do
begin
for i:=0 to table2.FieldCount-1 do
if Table2.Fields[i].value=0 then gb:=gb+1;
if gb=table2.fieldCount then table2.Delete;
gb:=0;
Table2.Next;
end;
а так мучаюсь со столбцами:
Код
Table1.First;
fiel:=0;
for i:=0 to table1.FieldCount-1 do
begin
for j:=0 to Table1.RecordCount-1 do
begin
if Table1.Fields[i].Value=0 then g:=g+1;
Table1.Next;
end;
if g=table1.fieldCount then
begin
table1.first;
fiel:=fiel+1;
for db:=i to table1.FieldCount-2 do begin
for ga:=0 to Table1.RecordCount-1 do begin
table1.Edit;
table1.Fields[db].value:=table1.Fields[db+1].value;
Table1.Next;
end;
table1.First;
end;
end;
g:=0;
table1.First;
end;
и ничего не выходит
