Adicionar uma linha no meio do arquivo TStringList

Delphi

14/06/2018

Boa tarde a todos

tenho uma duvida com TStringList,
Como faço para adicionar uma nova linha depois de uma linha x?
ex:
tenho um arquivo com 20 linha, pesquisei o que queria e esta na linha 10, agora quero acrescentar uma nova linha 11, sem apagar a linha 11 anterior, então o arquivo terá 21 linhas.
Marcos

Marcos

Curtidas 0

Respostas

Alberto

Alberto

14/06/2018

procedure TForm1.Button1Click(Sender: TObject);
var List:TStringList;
begin
   List := TStringList.Create;
   List.Add( 'primeira linha');   // index = 0
   List.Add( 'segunda linha');    // index = 1
   List.Add( 'terceira linha');   // index = 2
   List.Insert( 1, 'linha inserida' ); // insere um linha na posicao 2 da lista
end;
GOSTEI 0
POSTAR