Fórum Copiar as primeiras linhas do memo1 para o memo2? #412289
02/02/2012
0
Eu to fazendo uns testes e preciso que no Memo2 apareça as 6 primeiras linhas do memo1... É meio complicado explicar então deve ser dificil entender também. Mas basicamente é o seguinte... eu carrego no memo1 uma lista de dados onde os dados estão todos misturados, ai então quero que quando eu clique no button as 6 primeiras linhas do memo1 apareçam no memo2 e sejam excluidas do memo1.
Exemplo:
http://sitehacker.com.br/images/exemplo.jpg
Na imagem acima mostra um exemplo de como os dados são carregados para o memo1
E Nessa outra imagem mostra como quero que as informações apareçam no memo2 ao clicar no botão Organizar
http://sitehacker.com.br/images/exemplo2.jpg
Por favor pessoal preciso muito disso, quem souber por favor me ajude!
Bruno Martins
Curtir tópico
+ 0Posts
02/02/2012
Rafael Ribeiro
Não consegui visualizar suas imagens. Mas, formulei um código. Verifique se te atende:
procedure TFrmTesteRelatorio.Btn2Click(Sender: TObject);
var
I, J: Integer;
begin
//COPIANDO AS 6 PRIMEIRAS LINHAS:
for i := 0 to 5 do
begin
mmo2.Lines.Add(mmo1.Lines[I]);
end;
//DELETANDO AS 6 PRIMEIRAS LINHAS DO MEMO1
for J := 0 to 5 do
begin
IF J <= 5 then
begin
mmo1.Lines.Delete(0);
end;
end;
end;Espero ter ajudado!
abçs
Rafael
Gostei + 0
02/02/2012
Rafael Ribeiro
procedure TFrmTesteRelatorio.Btn2Click(Sender: TObject);
var
I, J: Integer;
begin
//COPIANDO AS 6 PRIMEIRAS LINHAS:
for i := 0 to 5 do
begin
mmo2.Lines.Add(mmo1.Lines[I]);
end;
//DELETANDO AS 6 PRIMEIRAS LINHAS DO MEMO1
for J := 0 to 5 do
begin
IF J <= 5 then
begin
mmo1.Lines.Delete(0);
end;
end;
end;
Gostei + 0
02/02/2012
Rafael Ribeiro
var
I, J: Integer;
begin
//COPIANDO AS 6 PRIMEIRAS LINHAS:
for i := 0 to 5 do
begin
mmo2.Lines.Add(mmo1.Lines[I]);
end;
//DELETANDO AS 6 PRIMEIRAS LINHAS DO MEMO1
for J := 0 to 5 do
begin
IF J <= 5 then
begin
mmo1.Lines.Delete(0);
end;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)