Генерация XML Delphi

[Evgeny86Ru]

Сообщение от Аватар

Если в Excel нумерация с 1, то так как ниже. Если с 0, то +1 убрать. Если самая первая строка из Excel не нужна то цикл с 1 (и соответственно строчка с идексом 0 не будет заполнена, это нужно помнить дальше)

  c := Excel_n.ActiveSheet.UsedRange.Rows.Count;
  setlength(r, c);
  for i := 0 to c - 1 do
  begin
     news_r[i].title := Excel_news.Cells[i +1, 2];
     news_r[i].body := Excel_news.Cells[i + 1, 3];
  end;

написал так

 c := Excel_news.ActiveSheet.UsedRange.Rows.Count;
  setlength(r, c);
 for i := 0 to c - 1 do
  begin
     news_r[i].title := Excel_news.Cells[i +2, 2];
     news_r[i].body := Excel_news.Cells[i +2, 3];
  end;
  Excel_news.ActiveWorkbook.Close;

нужно в экселе именно со второй строки, а нумерация вроде с 1 цы. , но он все равно сыплет ошибку адреса

[Аватар]

Ну и что будет, когда i=c-1? Пойдет обращение к Excel_news.Cells[с+1, 2] и ошибка. Тогда уж так:

for i := 1 to c - 1 do
  begin
     news_r[i].title := Excel_news.Cells[i +1, 2];
     news_r[i].body := Excel_news.Cells[i +1, 3];
  end;

И дальше при обработке news_r в цикле опускать нулевой индекс for i := 1 to c - 1

[Evgeny86Ru]

Сообщение от Аватар

Ну и что будет, когда i=c-1? Пойдет обращение к Excel_news.Cells[с+1, 2] и ошибка. Тогда уж так:

for i := 1 to c - 1 do
  begin
     news_r[i].title := Excel_news.Cells[i +1, 2];
     news_r[i].body := Excel_news.Cells[i +1, 3];
  end;

И дальше при обработке news_r в цикле опускать нулевой индекс for i := 1 to c - 1

не совсем понятно почему получится ошибка, ведь если строк к примеру 5, то на момент последнего витка i будет рано 4 и из экселя браться 7 й строка, пусть и пустая, но ошибку не должно вызывать. Хотя я чет совсем запутался. Даже при вашем последнем примере сыплет ошибку

[Аватар]

Давай свой проект полностью и файл экселевский выкладывай вложением

[Evgeny86Ru]

Сообщение от Аватар

Давай свой проект полностью и файл экселевский выкладывай вложением

Все разобрался, усталость дала о себе знать. Массив заполнялся правильно, проблема была в setlength(news_r, c) тут был указан, не верный массив. потому размерности для массива новостей не было и он ругался. Спасибо вам за советы, оч помогли.