Как разбить TStringList на части по 15 строк?

[FleXik]

Как разбить TStringList на части по 15 строк?

[type_Oleg]

У TStringList есть проперть Strings - сие есть динамический массив строк.
Вот и работайте , как с массивом.

[FleXik]

кто-то может дать конкретный ответ?

[Smitt&Wesson]

Есть свойство Count. Оно определяет количество строк в списке. Получаем количество строк и делим на 15.

[FleXik]

Smitt&Wesson, нужен конкретный пример а не "возможно оно заработает"

Вот так вот вроде пашет но оно показывает только по 1 строке в ShowMessage... а мне надо сразу 15... , как из TStringList брать сразу по 15 строк?

var
  sl:TStringList;
  i:integer;
begin
  i:=0;
  sl:=TStringList.Create;
  sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

  while i<sl.Count do
  begin
    ShowMessage(sl[i]);
    i:=i+15;
  end;

  sl.Free;
end;

уже сам сделал дополнительным циклом и стринглистом и без всяких там массивов, но когда строк меньше 15 - List index out of bound, помню была такая фигня как min , но не помню как юзать...

var
  sl, Arr:TStringList;
  i, j:integer;
begin
  i:=0;
  sl:=TStringList.Create;
  Arr:=TStringList.Create;
  sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

  while i<sl.Count do
  begin
    Arr.Clear;

      for j:=0 to 14 do
      begin
        Arr.Add(sl[i]);
        inc(i);
      end;

    ShowMessage(Arr.Text);
  end;

  sl.Free;
  Arr.Free;
end;

[Stilet]

помню была такая фигня как min , но не помню как юзать...

Не было там такого. Выше уже сказали: Count. Это свойство покажет если строк меньше 15 то не делать.

нужен конкретный пример а не "возможно оно заработает"

Тогда и ты ставь конкретное задание а не "разбить TStringList на части по 15 строк"
Этот класс един и неделим, и разбить его на группы нельзя.
С другой стороны телепатирую:

var s:string;i:integer;
...
s:=''
with stringList do begin
 for i:=0 to Count-1 do begin
  if ((i mod 15)=0) and (i<>0) then begin
   ShowMessage(s); s:='';
  end else s:=s+Strings[i];
 end;
 if s<>'' then ShowMessage(s);
end;

[FleXik]

Stilet, что именно ты у меня подредактировал?

я понимаю что надо

if Arr.Count<14 then Break;

но оно НЕ пашет!

[Stilet]

Я ничего твоего не брал вообще, а придумал свое.

[FleXik]

Stilet, жесть... а я что, где-то писал что ты что-то мое брал? :D детский садик... просто увидел что ты отредактировал мое сообщение, подумал что исправил ту ошибку поэтому и переспросил.

решил проблему сам ибо не дождешься, так трудно помочь человеку...

прикол кода в том что даже если есть остаток например осталось 2 строки - оно их так же записывает но без всяких ошибок и получается что софт работает до последней строки без ошибок даже если последних строк осталось меньше 15. или даже если изначально в цикле стоит 15 строк а в тхт файле 10 строк - софт выводит все 10 строк без единой ошибки.

var
  sl, Arr:TStringList;
  i, j:integer;
begin
  i:=0;
  sl:=TStringList.Create;
  Arr:=TStringList.Create;
  sl.LoadFromFile(Form1.sFilenameEdit1.FileName);

    while i<sl.Count do
    begin
      Arr.Clear;

        for j:=0 to 1 do
        begin
          if i<sl.Count then
          Arr.Add(sl[i]);
          inc(i);
        end;

      ShowMessage(Arr.Text);
    end;

  sl.Free;
  Arr.Free;
end;