Copiar as primeiras linhas do memo1 para o memo2?

Delphi

02/02/2012

é o seguinte pessoal...
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

Bruno Martins

Curtidas 0

Respostas

Rafael Ribeiro

Rafael Ribeiro

02/02/2012

Bruno, bom dia!

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
Rafael Ribeiro

Rafael Ribeiro

02/02/2012

Segue novamente o código. Deu problema na visualização do mencionado acima:

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
Rafael Ribeiro

Rafael Ribeiro

02/02/2012

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
POSTAR