2 replies to this topic

[Caral]

hola a todos

Os explico:

tengo un listbox con una lista de números:

 

123

112

143

133

112

100

231

111

 

 

necesito copiar en otro listbox solo los números que tengan algún dígito repetido osa en este ejemplo serian:

 

112

133

112

100

111

 

Gracias de antemano

Saludos

 

 edito

este ejemplo de casualidad los números repetidos empiezan con 1 pero pueden empezar  o terminar con cualquier numero.

222

233

303

999

090

etc

[Caral]

Hola

Me contesto por si a alguien le sirve.

1- selecciono cada dígito por aparte.

2. lo paso a integer si no esta vacío.

3- indico si se repite algún dígito

4- si se repite lo paso a otro listbox.

5- cuento la cantidad de coincidencias

6. limpio los repetidos.

php

var Fuente, obj : String;
 i,a,b,c,x : integer;
 listanome: TStringList;
begin
 listBox10.Clear;
  for i:=0 to listBox8.Count-1 do
  begin
    Fuente:= listBox8.Items[i];
    obj:= copy(Fuente, 0, 1);
     Edit38.Text:= Obj;
   Fuente:= listBox8.Items[i];
    obj:= copy(Fuente, 2, 1);
     Edit40.Text:= Obj;
    Fuente:= listBox8.Items[i];
    obj:= copy(Fuente, 3, 1);
     Edit3.Text:= Obj;
  if Edit38.Text <> '' Then
  begin
    a:= StrToInt(Edit38.Text);
  end;
  if Edit40.Text <> '' Then
  begin
    b:= StrToInt(Edit40.Text);
  end;
  if Edit3.Text <> '' Then
  begin
    c:= StrToInt(Edit3.Text);
  end;
  if Edit3.Text <> '' Then
  begin
   if (a = b) or (a = c) or (b = c) then
   begin
   listBox10.Items.Append(Fuente);
   end;
  end
  else
  begin
    if (a = b) or (b = a) then
   begin
   listBox10.Items.Append(Fuente);
   end;
  end;
   end;
 
 
x:=0;
listanome:=TStringList.Create;
for x:=0 to listBox10.Count-1 do
  begin
    if listanome.IndexOf(listbox10.Items.Strings[x]) < 0 Then
      listanome.Add(listbox10.Items.Strings[x])
   end;
listbox10.Clear;
listbox10.Items.AddStrings(listanome);
listanome.Free;
 
 
Label20.Caption:= IntToStr(ListBox10.Items.count);
end;

Saludos

[ELKurgan]

Gracias por compartir la solución

 

Saludos