Tutorial Aprenda a usar TStringList

[marcelocjr]

Galera, boa noite.

É com muito prazer que venho iniciar meus tutoriais, afim de ajudar aqueles que estão começando ou aqueles que ainda não sabem de tal assunto.

Neste tutorial, vou ensiná-los a utilziar o TStringList.

O TStringList nada mais é do que uma lista de strings. Cada posição de uma StringList pode estar armazenado N caracteres, ou seja, uma string. Utiliza-se muito a StringList para evitar a leitura de um arquivo txt. Pois como a StingList é trabalhada em memória, sua agilidade é N vezes maior do que você varrer um txt por inteiro.

Bem, vamos começar.

Antes de mais nada, devemos declarar uma variável do tipo classe TStringList.

Lista : TStringList;

Como percebemos, a TStringList é uma classe, e toda classe deve ser instânciada. Então, vamos instânciar a TStringList e inicia nossa variável.

 
  procedure InstanciaLista;
  begin
       Lista := TStringList.Create;
  end;

Eu criei este método, pois não sei onde vocês pretende usar a lista e em que momento será necessário instância-la. Agora, vamos criar um método que adiciona uma string em um índice na nossa StringList.

 
  procedure AdicionaStr ( Str : string );
  begin
      Lista.Add ( Str );
  end;

Agora, vamos criar um método que irá retornar o índice na StringList onde se encontra uma determinada string. Caso não encontre, ele retorna - 1.

  function RetornaIndice ( str : string ) : integer;
  begin
      Result := Lista.IndexOf ( str ); 
  end;

Bom galera, vou mostrá-los agora, como carregar em um StringList, um arquivo texto. Ou seja, o Delphi irá jogar em cada índice da StringList uma linha daquele txt. Isto facilita muito o nosso trabalho.

 Lista.LoadToFile ( 'C:\Teste.txt' );

Após toda manipulação, é preciso salvar tudo que alteramos no txt novamente, correto ? Então...

 Lista.SaveToFile ( 'C:\Teste.txt' );

Agora vou mostrá-los como varremos um StringList.

  for indice := 0 to Lista.Count - 1 do
   ShowMessage ( Lista.Strings [ indice ] );

Por fim, finalizamos destruindo nossa stringList após termos feito o que tinha que se fazer.

   Lista.Free;
   Lista := nil;

[marcelocjr]

Corrigindo um erro de digitação: Lista.LoadFromFile ( 'C:\Teste.txt' );