Ler linha de arquivo de texto

Question

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...

Rjun · Answer

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;

F�rum Ler linha de arquivo de texto #293023