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.
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.
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.
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.
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.
Após toda manipulação, é preciso salvar tudo que alteramos no txt novamente, correto ? Então...
Agora vou mostrá-los como varremos um StringList.
Por fim, finalizamos destruindo nossa stringList após termos feito o que tinha que se fazer.
É 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.
Código:
Lista : TStringList;
Código:
procedure InstanciaLista; begin Lista := TStringList.Create; end;
Código:
procedure AdicionaStr ( Str : string ); begin Lista.Add ( Str ); end;
Código:
function RetornaIndice ( str : string ) : integer; begin Result := Lista.IndexOf ( str ); end;
Código:
Lista.LoadToFile ( 'C:\Teste.txt' );
Código:
Lista.SaveToFile ( 'C:\Teste.txt' );
Código:
for indice := 0 to Lista.Count - 1 do ShowMessage ( Lista.Strings [ indice ] );
Código:
Lista.Free; Lista := nil;
Comment