| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
SCOFIELD
Novato
Registrado: Sábado, 24 de Mai de 2014
Mensagens: 4
|
 Enviada: Sáb Mai 24, 2014 11:25 am Assunto: Reverter lines de um memo |
 |
|
Olá galera gostaria de saber como reverter lines de um memo,
Exemplo:
Maria
Joao
Pedro
Revertidos:
Pedro
Joao
Maria
Obrigado dês de já. |
|
| Voltar ao Topo |
|
 |
rangelalvess
Novato
Registrado: Domingo, 13 de Março de 2011
Mensagens: 66
Localização: Damianópolis
|
| Enviada: Sáb Mai 24, 2014 4:49 pm Assunto: Solução fácil e rápida |
|
|
Cria um TMemo
Nome = Memo1
Cria um TButton
Nome = Button1
*** coloque o conteúdo da memo1, em lines ou pode digitar em tempo real
O EVENTO ONCLIK DO BUTTON1 DEVE FICAR ASSIM
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var
qtd_linha : integer; // PRECISAMOS DISSO
MemoTemp : TMemo; // VARIAVEL MEMO!
begin
// CRIAMOS UM MEMO TEMPORARIO
MemoTemp := TMemo.Create(self); //CRIA
MemoTemp.Parent := Self; //SELF=NO PROPRIO FORM1
MemoTemp.Visible := false; //NAO MOSTRAR - OCULTO
MemoTemp.Clear; // LIMPA
qtd_linha := memo1.Lines.Count; //CONTA AS LINHAS DO MEMO1
Repeat
qtd_linha := qtd_linha-1; //SUBTRAI 1 A CADA REPEAT
MemoTemp.Lines.Add(Memo1.Lines[qtd_linha]); //COLOCA A LINHA ATUAL NO MEMO TEMPORARIO
Until qtd_linha <= 0; // FAZ ISSO ATÉ ACABAR AS LINHAS, FOR ZERO!
Memo1.Text := MemoTemp.Text; // MUDA O CONTEUDO DA MEMO1 COLOCA IGUAL AO TEMPORARIO
MemoTemp.Free; // TIRA O MEMOTEMPORARIO DA MEMORIA
end; |
_________________
Rangel Alves - www.rangelproducoes.com
Desenvolvimento de Sites e Softwares
http://www.rangelproducoes.com/?pagina=softwares
Como Montar Negócio 100% Online
http://rangelalves.com/dicas-gratis/ |
|
| Voltar ao Topo |
|
|
SCOFIELD
Novato
Registrado: Sábado, 24 de Mai de 2014
Mensagens: 4
|
| Enviada: Sáb Mai 24, 2014 5:41 pm Assunto: |
|
|
Obrigado cara isso resolveu totalmente minha dúvida,
abraços e um bom final de semana :d |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
