[YCH.Del]

Код:

var XLS: TXLSReadWriteII2;

В XLS уже занесена туева хуча значений, вот таким образом:

Код:

   with XLS.Sheets[0] do begin
     AsString[ACol, ARow] := Text;

Все это успешно сохраняется в файл - т.е. никаких проблем нету, вроде... Но при попытке сделать вот так

Код:

XLS.Sheets[0].Rows.InsertRows(1, 1)

вылетает - List insex out of bound -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);

SrcRow у нас тут получается nil. Пробежавжись по F7 по данному файлу, добрался вот до такого:

Код:

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;

Count по непонятной пока для меня причине =0. Вроде бы строки есть, а ему все пох Если кто сталкивался - подскажите, как бороться с такой засадой...

[YCH.Del]

Добился, чтобы Rows.Count было более адекватным. Но главная проблема так и не решена. Не происходит вставка строк в нужное место. Т.е., Rows.Count увеличивается, но результата это ни разу не приносит - строки не сдвигаются вниз ни разу.
Кто-нибудь, разъясните мне принцип работы InsertRows, а? Плз, хелп, товарищи