dison
20-05-2014, 15:59:03
Saludos,
Tengo un listview que lo lleno con este código
var
Sm: TSMClient;
ds: tdataset;
I,a: Integer;
LItem: TListViewItem;
begin
try
Sm :=TSMClient.Create(ClientModule1.DSRestConnection1) ;
ds := Sm.GetMovilDirectorios() ;
ListView1.BeginUpdate;
try
ListView1.Items.Clear;
while not ds.Eof do
begin
LItem := ListView1.Items.Add;
LItem.Text := ds.FieldByName('vennombre').AsString;
ds.Next;
end;
finally
ListView1.EndUpdate;
end;
...
Todo se llena bien, el problema es cuando hago una búsqueda en el SearchBox del ListView
La primera búsqueda todo sale perfecto
Pero si salgo del SearchBox del ListView y llamo nueva vez el método de llenar ahí no aparece nada.
No se si esto es un Bug?
Uso Delphi XE6
DP
Tengo un listview que lo lleno con este código
var
Sm: TSMClient;
ds: tdataset;
I,a: Integer;
LItem: TListViewItem;
begin
try
Sm :=TSMClient.Create(ClientModule1.DSRestConnection1) ;
ds := Sm.GetMovilDirectorios() ;
ListView1.BeginUpdate;
try
ListView1.Items.Clear;
while not ds.Eof do
begin
LItem := ListView1.Items.Add;
LItem.Text := ds.FieldByName('vennombre').AsString;
ds.Next;
end;
finally
ListView1.EndUpdate;
end;
...
Todo se llena bien, el problema es cuando hago una búsqueda en el SearchBox del ListView
La primera búsqueda todo sale perfecto
Pero si salgo del SearchBox del ListView y llamo nueva vez el método de llenar ahí no aparece nada.
No se si esto es un Bug?
Uso Delphi XE6
DP