Ler Arquivo Texto no Delphi

Delphi

28/09/2012

Clicar no botão, ele vai ler o arquivo texto contendo números aleatórios e criar novo arquivo texto em ordem crescente;
Comecei fazer assim:

var
arquivo: TextFile;
linha: String;
begin
AssignFile(arquivo, 'C:\arquivo de codigos\dados.txt');

Reset(arquivo);


dai por diante não sei como continuar com a condição de colocar os números em ordem crescente.

Cristiano Magalhães

Cristiano Magalhães

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

28/09/2012

Primeiro de tudo você precisa carregar seu arquivo txt em um campo memo.

GOSTEI 0
Leonardo Xavier

Leonardo Xavier

28/09/2012

Primeiro de tudo você precisa carregar seu arquivo txt em um campo memo.


não consegui editar (ia clicar em code e cliquei em enviar por isso duas veses...) como eu tave disendo você precisa colocar seu txt em um campo memo ou string list, 

Meumemo.Lines.Loadfromfile('c:\meutexto.txt');


Feito isso você precisará trabalhar com matrizes para poder ordenar seus números e ir realizando testes um a um e ir gravando do menor ao maior. se tiver dúvidas posta ai.
GOSTEI 0
Rafael Reis

Rafael Reis

28/09/2012

Amigo, vc pode ler o arquivo e jogar os numeros em uma stringlist, ordená-las e depois colocá-las no arquivo novo.

segue um exemplo de como ordenar. Espero ter ajudado.



var
  list : TStringList;
  item:string;
begin

var
  list : TStringList;
  item:string;
begin
  try
      list := TStringList.Create;
      list.Add('2');
      list.Add('1');
      list.Add('5');
      list.Add('7');
      list.Add('4');

      list.Sorted := true;
      list.Sort;

      for item in list do
      begin
        ShowMessage(item);
      end;
  finally
      FreeAndNil(list);
  end;
GOSTEI 0
POSTAR