Hola, lo he probado
Funciona correctamente, pero a veces deja Items en blanco. Por eso he añadido ésto al final.
for I := 0 to LBoxTArget.Count - 1 do
if LBoxTarget.Items[i] ='' then
LBoxTarget.Items.Delete(I) ;
Saludos;
bulc
Última edición por bulc fecha: 09-05-2022 a las 17:39:59.
|