델파이 왕초보자입니다
스트링그리드와 버튼 , ExcelApplication, ExcelWorksheet, ExcelWorkbook을
폼에 추가 시키고 아래 코드로 컴파일 하면
[Error] Unit1.pas(28): Declaration of 'ExcelToGrid' differs from previous declaration
이런 에러가 뜹니다...무슨 에러인가요..
--------------------------------------------------------------------------------------------------------------
procedure TForm1.ExcelToGrid(sFile : String; sGrid : TStringGrid;sCol:Integer);
procedure TForm1.ExcelToGrid(sFile : String; sGrid : TStringGrid;sCol:Integer);
var
ExcelApp, ExcelBook, ExcelSheet : Variant;
i, j : Integer; // 순환변수
Begin
try
ExcelApp := CreateOLEObject('Excel.Application');
except
ShowMessage('Excel이 설치되어 있지 않습니다!!!');
Exit;
end;
Try
ExcelApp.Visible := False;
ExcelApp.DisplayAlerts := False;
ExcelBook := ExcelApp.WorkBooks.Open(sFile);
ExcelBook := ExcelApp.WorkBooks.item[1];
ExcelSheet := ExcelBook.Worksheets.Item[1];
sGrid.RowCount := ExcelSheet.UsedRange.Rows.count;
sGrid.ColCount := sCol;
For i := 1 to ExcelSheet.UsedRange.Rows.count do
For J := 1 to sCol do
sGrid.Cells[j-1,i-1] := VarToStr(ExcelSheet.Cells[i,j]);
ExcelApp.WorkBooks.Close;
ExcelApp.quit;
ExcelApp := unassigned;
Except
on err : exception do begin
ExcelApp.WorkBooks.Close;
ExcelApp.quit;
ExcelApp := unassigned;
ShowMessage('작업이 취소되었습니다. Data확인요망-'+err.message);
end;
end;
sGrid.FixedRows := 1;
ShowMessage(IntToStr(sGrid.RowCount) + '건의 자료를 변환하였습니다');
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelToGrid(Edit1.Text,StringGrid1,20);
end;