[SIANAN]

Нужно создать таблицу Excel, причём количество столбцов и строк должно задаваться с формы. Также присутствуют ещё 2 дополнительных столбца, в 1-ом подсчитывается построчно сумма, во 2-ом - отношение суммы по строке к общей сумме по всем строкам...

Пыталась написать сама, но у меня прога написана, мягко говоря, неккоректно....

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  XL, a: Variant;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//Создание новой таблицы
XL:=CreateOleObject('Excel.Application');
XL.WorkBooks.Add;
XL.DisplayAlerts:=False;  // Вопрос о сохранении таблицы не задавать
 
a:=VarArrayCreate([1,6,1,12], varVariant);
 
XL.WorkBooks[1].WorkSheets[1].Range['A3'].Value:='1';
XL.WorkBooks[1].WorkSheets[1].Range['A4'].Value:='2';
XL.WorkBooks[1].WorkSheets[1].Range['A5'].Value:='3';
XL.WorkBooks[1].WorkSheets[1].Range['A6'].Value:='4';
XL.WorkBooks[1].WorkSheets[1].Range['A7'].Value:='5';
XL.WorkBooks[1].WorkSheets[1].Range['A8'].Value:='6';
XL.WorkBooks[1].WorkSheets[1].Range['B2'].Value:='1';
XL.WorkBooks[1].WorkSheets[1].Range['C2'].Value:='2';
XL.WorkBooks[1].WorkSheets[1].Range['D2'].Value:='3';
XL.WorkBooks[1].WorkSheets[1].Range['E2'].Value:='4';
XL.WorkBooks[1].WorkSheets[1].Range['F2'].Value:='5';
XL.WorkBooks[1].WorkSheets[1].Range['G2'].Value:='6';
XL.WorkBooks[1].WorkSheets[1].Range['H2'].Value:='7';
XL.WorkBooks[1].WorkSheets[1].Range['I2'].Value:='8';
XL.WorkBooks[1].WorkSheets[1].Range['J2'].Value:='9';
XL.WorkBooks[1].WorkSheets[1].Range['K2'].Value:='10';
XL.WorkBooks[1].WorkSheets[1].Range['L2'].Value:='11';
XL.WorkBooks[1].WorkSheets[1].Range['M2'].Value:='12';
XL.WorkBooks[1].WorkSheets[1].Range['N2'].Value:='Sum';
XL.WorkBooks[1].WorkSheets[1].Range['O2'].Value:='Weight';
 
//Оформление созданной таблицы
XL.WorkBooks[1].WorkSheets[1].Range['A1:O1'].Merge;
XL.WorkBooks[1].WorkSheets[1].Range['A1'].Value:='Определение min группы экспертов';
XL.WorkBooks[1].WorkSheets[1].Range['A1'].HorizontalAlignment:=3;
XL.WorkBooks[1].WorkSheets[1].Range['A:M'].ColumnWidth:=3;
 
//Вычисление сумм
XL.WorkBooks[1].WorkSheets[1].Range['N3'].Formula:='=sum(B3:M3)';
XL.WorkBooks[1].WorkSheets[1].Range['N4'].Formula:='=sum(B4:M4)';
XL.WorkBooks[1].WorkSheets[1].Range['N5'].Formula:='=sum(B5:M5)';
XL.WorkBooks[1].WorkSheets[1].Range['N6'].Formula:='=sum(B6:M6)';
XL.WorkBooks[1].WorkSheets[1].Range['N7'].Formula:='=sum(B7:M7)';
XL.WorkBooks[1].WorkSheets[1].Range['N8'].Formula:='=sum(B8:M8)';
XL.WorkBooks[1].WorkSheets[1].Range['N9'].Formula:='=sum(N3:N8)';
//Вычисление удельного веса каждого эксперта
XL.WorkBooks[1].WorkSheets[1].Range['O3'].Formula:='=N3/N9';
XL.WorkBooks[1].WorkSheets[1].Range['O4'].Formula:='=N4/N9';
XL.WorkBooks[1].WorkSheets[1].Range['O5'].Formula:='=N5/N9';
XL.WorkBooks[1].WorkSheets[1].Range['O6'].Formula:='=N6/N9';
XL.WorkBooks[1].WorkSheets[1].Range['O7'].Formula:='=N7/N9';
XL.WorkBooks[1].WorkSheets[1].Range['O8'].Formula:='=N8/N9';
 
XL.WorkBooks[1].WorkSheets[1].Range['B3:M8'].Value:=a;
XL.Visible:=true;
 
end;
 
end.

Админ: Пользуемся тегами для оформления кода!

А дальше нужно провести сортировку в последнем столбце (в столбце 'Weight'): найти min, потом удалить строку с этим значением, пересчитать этот столбец снова, учитывая оставшиеся данные и снова повторять эту операцию по удалению строки, пока не остануться варианты с равными значениями... В ответе надо вывести номера оставшихся строк.

Значение ячеек таблицы будут заполняться только '1' или ' '.

Помогите, пожалуйста с данной задачей... Я уже около недели мучаюсь, не могу решить... Заранее спасибо.