Duvida Manipulando arquivo de texto

Delphi

25/03/2008

Galera to com uma dúvida aqui que pra vcs que são experientes é coisa boba , o código segue ai em baixo :

procedure TFrmPrincipal.btnCarregarArquivoClick(Sender: TObject);

var

{ Variável que recebe o conteúdo do arquivo texto }

   arquivo: TStringList;

   i: Integer;

begin

   { Instancia a variável arquivo }

   arquivo := TStringList.Create;

   try

   { Carrega o conteúdo do arquivo texto para a   memória }

   arquivo.LoadFromFile(‘c:\temp\arquivo1.txt’);

   { Realiza um loop em toda a lista }

   for i := 0 to arquivo.Count - 1 do   begin

     { Mostra o valor atual da linha }

      ShowMessage(‘O conteúdo original da linha ‘ +

      IntToStr(i) + ‘ é ‘ + arquivo[i]);

      { Atribui um novo valor para a linha corrente }

      arquivo[i] := ‘Novo conteúdo da linha: ‘ +

      IntToStr(i);

   end;

      { Salva as alterações no arquivo }

      arquivo.SaveToFile(‘c:\temp\arquivo1.txt’);

   finally

   { Libera a instancia da lista da memória }

   FreeAndNil(arquivo);

   end;

end;


gostaria de saber sobre essa parte
{ Instancia a variável arquivo }
como assim ´Instancia´ oque seria ´Instanciar´ ? sei que pode ser uma dúvida boba , mas sou novato espero que me compreendam :wink:

valeu !


Psyjacko

Psyjacko

Curtidas 0

Respostas

Webjoel

Webjoel

25/03/2008

Olá!

Seria a mesma coisa que criar um novo objeto e esse irá passar a ter as funções do seu criador.

No seu caso, antes da linha:

arquivo := TStringList.Create;


a variável ´arquivo´ não possuia nenhuma função/procedimentos, mas depois dessa linha, ela foi instanciada com todas as funções da classe TStringList.

Ex:

arquivo.Clear;
arquivo.Add();


E assim por diante...Espero ter ajudado com essa explicação simples.

E dá-lhe F9!


GOSTEI 0
Abagattini

Abagattini

25/03/2008

Tenta assim:
procedure LerArquivo;
var Arquivo:TextFile; Linha:String;
begin
  TRY
    AssignFile(Arquivo,´nome do arquivo em disco´);
    Reset(Arquivo);
    while(not SeekEOF(Arquivo))do
    begin
      ReadLn(Arquivo,Linha);
      //faz algo com a variável Linha
    end;
  FINALLY
    CloseFile(Arquivo);
  END;
end;



GOSTEI 0
POSTAR