чтение определенный строки из txt файла

[alman12]

чтение определенный строки из txt файла

Этот код показывает определенный строки из txt файла
но как сделать что бы показывал по очереди после определенный строки

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  i : Integer;
  s :string;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\text.txt');
// for i=0 sl.count do begin
  Memo1.Lines.Add(sl.Strings[11]);

 end;
  finally
    sl.Free;
  end;
end;

[Serge_Bliznykov]

  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\text.txt');
    for i=11 to 15 do 
        Memo1.Lines.Add(sl.Strings[i]);
...

[alman12]

Этот повторно добавляет из строк 10 до строк 15 .Я хочу что добавилось следующие строки после 10-й строки по одному

[evg_m]

 Memo1.Lines.Add(sl.Strings[11 + Memo1.Lines.Count  ]);

[Serge_Bliznykov]

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

Этот повторно добавляет из строк 10 до строк 15

нет. этот код добавляет 5 строк (с индексами от 11 до 15).

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

Я хочу что добавилось следующие строки после 10-й строки по одному

какие следующие?
сколько строк нужно добавить?

и я не понимаю. что значит "по одному"?

чтобы нажимаешь на кнопку добавилась одна строчка.
ещё раз нажимаешь - добавилась ещё одна строчка,
и так далее, пока файл не кончится?

или по таймеру строчки должны добавляться?

[alman12]

чтобы нажимаешь на кнопку добавилась одна строчка.
ещё раз нажимаешь - добавилась ещё одна строчка,
и так далее, пока файл не кончится

да

[Serge_Bliznykov]

тогда нужно менять логику работы.

1) нужно описать глобальную переменную.
Для этого надо переместить строчку var sl : TStringList; туда же, где у Вас описана переменная формы
var
Form1: TForm1;
ну и там же описать переменную, где будем хранить индекс строчки.

var
  Form1: TForm1;
  sl : TStringList;
  indexInFile : integer;

2) на событие формы onCreate нужно добавить иницилизацию переменных и чтение текстового файла.

procedure TForm1.FormCreate(Sender: TObject);
begin
  sl := TStringList.Create;
  sl.LoadFromFile('C:\text.txt');
  indexInFile := 10; {начнём чтение с 11 строки, учитывая, что строки нумеруются от нуля}
end;

3) на событие onClose формы добавить освобождение занятой переменной sl памяти:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(sl);
end;

4) ну и собственно событие на кнопке будет выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if indexInFile < sl.count then begin
     Memo1.Lines.Add(sl.Strings[indexInFile]);    
     Inc(indexInFile);
  end;
end;

вот и всё.

[alman12]

Спасибо Serge_Bliznykov

[Serge_Bliznykov]

alman12, пожалуйста.