|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
XLSReadWriteII 2.0 Rows.InsertRows - вылетает :(
Код:
var XLS: TXLSReadWriteII2; В XLS уже занесена туева хуча значений, вот таким образом: Код:
with XLS.Sheets[0] do begin AsString[ACol, ARow] := Text; Код:
XLS.Sheets[0].Rows.InsertRows(1, 1) Заглянул Rows2.pas: Код:
procedure TXLSRows.InsertRows(Row, RowCount: integer); var i,Start: integer; XRow,SrcRow: TXLSRow; begin if (Row < 0) or (Row > MAXROW) then raise Exception.Create('Invalid row'); SrcRow := Find(Row - 1); Код:
function TXLSRows.FindIndex(Row: integer): integer; var i,lo,hi: integer; begin if (Row < 0) or (Count <= 0) or (Row > MAXROW) then begin Result := -1; Exit; end; |