[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 - это и есть те самые семь строк?