|
|
Регистрация | << Правила форума >> | 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; |
#2
|
|||
|
|||
Продолжение
Добился, чтобы Rows.Count было более адекватным. Но главная проблема так и не решена. Не происходит вставка строк в нужное место. Т.е., Rows.Count увеличивается, но результата это ни разу не приносит - строки не сдвигаются вниз ни разу.
Кто-нибудь, разъясните мне принцип работы InsertRows, а? Плз, хелп, товарищи |