@Никита1991

Вот весь код с поправкой на ваш, у меня мозг взрывается уже не понимаю в чем дело


unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.Menus,ComObj;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
SaveDialog1: TSaveDialog;
StringGrid1: TStringGrid;
Button1: TButton;
procedure N3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Grid:TStringGrid;
implementation

{$R *.dfm}

procedure Xls_Open(XLSFile:string; Grid:TStringGrid);
const
xlCellTypeLastCell = $0000000B;
var
ExlApp : OLEVariant;
Sheet : OLEVariant;
i, j,c,r: integer;

begin
//создаем объект Excel
ExlApp := CreateOleObject('Excel.Application');

//делаем окно Excel невидимым
ExlApp.Visible := false;

//открываем файл XLSFile
ExlApp.Workbooks.Open(XLSFile);

//создаем объект Sheet(страница) и указываем номер листа (1)
//в книге, с которого будем осуществлять чтение
Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];

//активируем последнюю ячейку на листе
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

// Возвращает номер последней строки
r := ExlApp.ActiveCell.Row;

// Возвращает номер последнего столбца
c := ExlApp.ActiveCell.Column;

//устанавливаем кол-во столбцов и строк в StringGrid
Grid.RowCount:=r;
Grid.ColCount:=c;

//считываем значение из каждой ячейки и копируем в нашу таблицу
for j:= 1 to r do
for i:= 1 to c do

Grid.Cells[i-1,j-1]:= sheet.cells[j,i].text ;

//закрываем приложение Excel
ExlApp.Quit;
ExlApp := Unassigned;
Sheet := Unassigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l,n,c:integer;
a:array of extended;
b:array of record
e:extended;
c:integer;
end;
begin
l:=grid.RowCount;
setlength(a,l);
for i:=1 to l-1 do
begin
try
a[i]:=strtofloat(grid.Cells[3,i]);
except
showmessage('Значение в строке '+inttostr(i+1)+' должно быть числом!');
exit;
end;
end;
setlength(b,0);
i:=0;
while i<length(a) do
begin
c:=1;
j:=i+1;
l:=0;
while j<length(a) do
begin
if a[j]=a[i] then
begin
c:=c+1;
if c=2 then
begin
l:=length(b);
setlength(b,l+1);
b[l].e:=a[i];
end;
n:=length(a)-1;
for k:=j+1 to n do
a[k-1]:=a[k];
setlength(a,n);
end
else
j:=j+1;
end;
if c>1 then
b[l].c:=c;
i:=i+1;
end;
with grid do
begin
if colcount<7 then
colcount:=7;
cols[5].Clear;
cols[6].Clear;
for i:=0 to length(b)-1 do
begin
cells[5,i]:=floattostr(b[i].e);
cells[6,i]:=floattostr(b[i].c);
end;
end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
If OpenDialog1.Execute then Xls_Open (OpenDialog1.FileName, StringGrid1);
end;



end.

Вернуться к обсуждению:
Как передать значения grid.cells в описание кнопки? Delphi

0