Ir para conteúdo
Fórum Script Brasil
  • 0

Filelistbox


Massonetto

Pergunta

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.

Abraços, t+

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

opa

veja se assim daria certo

procedure TForm1.Button1Click(Sender: TObject);

begin

pasta2.Items.AddStrings(pasta.Items);

end;

se você quiser que apenas carregue os items da pasta em uma variavel pra ser carregada depois, ao invés de arq você especificar como TMemoryStream, coloque para TStringList

tipo

arq: TStringList;

arq := TStringList.Create;

arq.addstrings(pasta.items);

ai pra carregar usaria

pasta2.items.addstrings(arq);

espero q isso ajude...

abraços

Link para o comentário
Compartilhar em outros sites

  • 0

ah ta entendi uhaahu

pensei q não tivesse um propósito...

baseado no seu código, tenta assim

procedure TForm1.Button1Click(Sender: TObject);

begin

arq := TMemoryStream.Create;

pasta.Items.SaveToStream(arq);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

arq.position := 0;

pasta2.Items.LoadFromStream(arq);

end;

position := 0 informa a variavel q a posicao de saida de dados é inicio do buffer

abraços

Link para o comentário
Compartilhar em outros sites

  • 0

hmm estranho, era pra ele ler todo o conteúdo...

testei aqui assim

var

Form1: TForm1;

arq: TMemoryStream;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

arq := TMemoryStream.Create;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

arq.Clear;

FileListBox1.Items.SaveToStream(arq);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

arq.Position := 0;

FileListBox2.Items.LoadFromStream(arq);

end;

testa mais ou menos assim, se funcionar ai da pra você saber q o erro está em seu código...

pra você diferenciar um filelistbox do outro coloca filtro tipo *.exe em um só pra sair um conteúdo diferente...

abraços

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...