[Gudzik11]

Здравствуйте !
Подскажите пожалуйста как сделать

Код:

begin
    j:=1;
    for i := 0 to XMLItem.SubItemCount-1 do   DrawXMLItem(XMLItem.SubItems[i]);
    if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;
 
  end;

Чтоб каждое слово которое найдено писалось в новой переменной ini .


В моём коде в Memo выводиться 8 слов а в ini записывается только 1 и самое последнее .

[Karsh]

Код:

if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;

Это условие не в цикле, исполняться оно будет только один раз, поэтому инкрементировать j бессмысленно и поэтому запись в ini будет исполняться лишь один раз.

[Gudzik11]

А не подскажешь как сделать ?

Если есть Memo в нём записано 30 строк мне нужно первые 7 строк записать в ini [1] следующие 7 строк в ini [2] и тд.

[Karsh]

Сообщение от Gudzik11

А не подскажешь как сделать ?

Если есть Memo в нём записано 30 строк мне нужно первые 7 строк записать в ini [1] следующие 7 строк в ini [2] и тд.

Если нужно именно через мемо, то примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, x: integer;
begin
  x:= 1;
  i:= 0;
  while i < Memo1.Lines.Count do
  begin
    for j:= 0 to 6 do
    begin
      if i+j >= Memo1.Lines.Count then break;
      ini.WriteString(IntToStr(x), 'Day' + IntToStr(j+1), Memo1.Lines[j+i]);
    end;
    inc(i, j);
    inc(x);
  end;
end;

Но проще делать это без мемо, сразу с xml.
Просто я смутно уже помню, как с xml работать. XMLItem.Text - это и есть те самые семь строк?

[Gudzik11]

Тут не xml а html. Использую ECXMLParser, ещё не знаю как он толком работает .

[Gudzik11]

Спасибо! То что нужно