F�rum Adicionar uma linha no meio do arquivo TStringList #594900

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

Curtir t�pico

+ 0

Responder

Posts

14/06/2018

Alberto

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;

Responder

Gostei + 0