Delphi Mobile: Como selecionar itens de um Listview e jogar em outro Listview
Estou desenvolvendo um aplicativo mobile em deplhi para efetuar pedidos, encontrei um problema que pra mim é bem complicado pois estou a pouco tempo trabalhando com programação. Tenho um listview que mostra meus produtos, ao selecionar um, eu preciso que ele jogue no outro listview de Itens do Pedido, e logo em seguida commitar esses dados no banco de dados. Se alguém tiver experiência ou souber me ajudar ficarei agradecido!!
Henrique Nascimento
Curtidas 0
Respostas
Paulo Freire
18/05/2018
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;
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;
GOSTEI 0