Inverter TXT Files
Então, eu estava criando um cronometro e gostaria que ele cria-se um arquivo de texto e depois escreve-se nele os tempos registrados no cronometro, esta parte esta funcionando Ok!
Porem eu queria que ele escreve-se o mais recente acima do menos recente
Exemplo : T1= 1s T2= 2s
Ele escreve
1
2
Eu queria que ele escreve-se
2
1
Alguém sabe uma função ou uma forma de inverter na hora da escrita?
Pode ter ficado meio confuso então eu fiz essa imagem que representa mais claramente oq querro
https://uploaddeimagens.com.br/imagens/enviar-png-84ddc041-9d4f-4568-82fb-5e8f40154002
Porem eu queria que ele escreve-se o mais recente acima do menos recente
Exemplo : T1= 1s T2= 2s
Ele escreve
1
2
Eu queria que ele escreve-se
2
1
Alguém sabe uma função ou uma forma de inverter na hora da escrita?
Pode ter ficado meio confuso então eu fiz essa imagem que representa mais claramente oq querro
https://uploaddeimagens.com.br/imagens/enviar-png-84ddc041-9d4f-4568-82fb-5e8f40154002
Mikael Luca
Curtidas 0
Respostas
Raimundo Pereira
01/09/2018
Bom dia.
Basta criar 2 memos.
1. Fica registrando o log normal.
2. Realiza um for invertido no memo1 e registra no memo2 este sim irá realizar a gravação do txt.
Exemplo:
VAR I:INTEGER;
begin
Memo1.Lines.Add(TimeToStr(NOW));
I:=0;
Memo2.Clear;
for I:= Memo1.Lines.Count downto 0 do
BEGIN
Memo2.Lines.Add(Memo1.Lines[I]);
end;
Resultado em img:
https://uploaddeimagens.com.br/imagens/enviar_invert-png
Basta criar 2 memos.
1. Fica registrando o log normal.
2. Realiza um for invertido no memo1 e registra no memo2 este sim irá realizar a gravação do txt.
Exemplo:
VAR I:INTEGER;
begin
Memo1.Lines.Add(TimeToStr(NOW));
I:=0;
Memo2.Clear;
for I:= Memo1.Lines.Count downto 0 do
BEGIN
Memo2.Lines.Add(Memo1.Lines[I]);
end;
Resultado em img:
https://uploaddeimagens.com.br/imagens/enviar_invert-png
GOSTEI 0
Mikael Luca
01/09/2018
mas como eu passo pro TxT sem alterar os valores la ja existentes?
GOSTEI 0