[YCH.Del]

Код:

1	<b>var</b> XLS: TXLSReadWriteII2;

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

Код:

1 2	<b>with</b> XLS.Sheets[0] <b>do begin</b>   AsString[ACol, ARow] := Text;

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

Код:

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

вылетает - List insex out of bound -1
Заглянул Rows2.pas:

Код:

1 2 3 4 5 6 7 8

<b>procedure</b> TXLSRows.InsertRows(Row, RowCount: integer); <b>var</b>   i,Start: integer;   XRow,SrcRow: TXLSRow; <b>begin</b>   <b>if</b> (Row < 0) <b>or</b> (Row > MAXROW) <b>then</b>     <b>raise</b> Exception.Create('Invalid row');   SrcRow := Find(Row - 1);

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

Код:

1 2 3 4 5 6 7 8

<b>function</b> TXLSRows.FindIndex(Row: integer): integer; <b>var</b>   i,lo,hi: integer; <b>begin</b>   <b>if</b> (Row < 0) <b>or</b> (Count <= 0) <b>or</b> (Row > MAXROW) <b>then begin</b>     Result := -1;     Exit;   <b>end</b>;

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

[YCH.Del]

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