Olá pessoal, estou tentando passar os itens de um FileListBox para outro com o seguinte codigo:
procedure TForm1.Button1Click(Sender: TObject);
begin
arq := TMemoryStream.Create;
pasta.Items.SaveToStream(arq);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
pasta2.Items.LoadFromStream(arq);
pasta2.Refresh;
end;
Pasta e pasta2 são os FileListBox.
O que acontece é que o pasta2, o que está recebendo o texto, quando eu tento ler da Stream ele fica em branco. Se alguém souber algo que podesse me ajudar ficaria muito grato.
Pergunta
Massonetto
Olá pessoal, estou tentando passar os itens de um FileListBox para outro com o seguinte codigo:
Pasta e pasta2 são os FileListBox.
O que acontece é que o pasta2, o que está recebendo o texto, quando eu tento ler da Stream ele fica em branco. Se alguém souber algo que podesse me ajudar ficaria muito grato.
Abraços, t+
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.