Fórum Delphi Mobile: Como selecionar itens de um Listview e jogar em outro Listview #593253

Dá uma olha nessa função, basta escolhe o ListBox de destino, o DataSet de onde vem as informações e a chave primaria do registro, e adapte a sua realidade.

public
class procedure fnc_carregarDataSet(Banco, Collection : String; var dsMongo : TFDMongoDataSet);
class procedure fnc_montarGrid(var lv : TListBox; dsMongo : TFDMongoDataSet; Key, Value : String); overload;

...




class procedure TUtilsView.fnc_montarGrid(var lv: TListBox; dsMongo: TFDMongoDataSet; Key, Value: String);
var
LBItem : TListBoxItem;
begin
inherited;
with dsMongo do
begin
First;
lv.Items.Clear;
while not Eof do
begin
lv.Items.AddObject(FieldByName(Value).AsString, TObject(FieldByName(Key).AsInteger));
Next;
end;
end;
end;