Ler linha de arquivo de texto

Delphi

25/08/2005

Eu gravei varios vetores do tipo inteiro em um arquivo de texto e separei os vetores no arquivo com vãrios asteriscos (ex: **********) em uma linha. Agora eu preciso ler esse arquivo para recuperar os vetores e os ´asteriscos´ estão atrapalhando a leitura. Como eu faço para fazer um ´if´ comparando que se a linha do arquivo for ´**********´ ele pular para a proxima linha do arquivo


Eduarno

Eduarno

Curtidas 0

Respostas

Rjun

Rjun

25/08/2005

Essa linha de asterisco é de tamanho fixo?

var
  Arquivo: TStringList;
  i: integer;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(´Arquivo.Txt´);
    for i := 0 to Arquivo.Count - 1 do
    begin
      if Arquivo.Strings[i] <> ´**********´ then
      begin
        // Código para montagem dos vetores
      end;
    end;
  finally
    FreeAndNil(Arquivo);
  end;
end;



GOSTEI 0
POSTAR