t; i + +)
{(buf_dept! = ADOQuery3-> FieldByName ("PATH") -> AsString)
{(count == 1)
{// create header_count + +; = sheet.OlePropertyGet ("Cells"). OlePropertyGet ("Item", i +1, count); _dept = ADOQuery3-> FieldByName ("PATH") -> AsString;. OlePropertySet ("Value",
} else {+ +; _dept = ADOQuery3-> FieldByName ("PATH") -> AsString;
}
} // insert data into
{_length = cur_value.Length () +7; // change width of cells
Next ();
} + +; _length = 12; -> First ();
}> Visible = true;. OlePropertySet ("Visible", true);
}
