Fórum Ler Arquivo Texto no Delphi #424924
28/09/2012
0
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
Curtir tópico
+ 0Posts
28/09/2012
Leonardo Xavier
Gostei + 0
28/09/2012
Leonardo Xavier
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
28/09/2012
Rafael Reis
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
Clique aqui para fazer login e interagir na Comunidade :)