Eliminar duplicados lista con mismos caracteres

[Paolo]

Me gustaria saber como de esta tstringlist con estos valores

012340 012340
402301 012350
012350 Eliminar los que tengan los mismos --->
230140 caracteres y que quede como --->

Gracias

[tcp_ip_es]

una pequeña idea....

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var pepe:tstringlist;
i,p:integer;
begin
pepe:=tstringlist.Create;

pepe.add('555');
pepe.add('333');
pepe.add('555');
pepe.Sort;
i:=0;
while i <= pepe.Count-1 do
begin
 if (pepe.Find(pepe[i],p)) and (i<>p) then
  pepe.delete(p);
 inc(i);
end;

memo1.lines:=  pepe;


end;

[[coso]]

hola suponiendo que cada numero este en una linea distinta, deberas usar un doble bucle :

Código Delphi [-]

for i := 0 to sl.count - 1 do
begin
   s := sl[i];
   for j := i to sl.count - 1 do 
      if sl[i] = sl[j] then sl[j].Delete;
end;

mas o menos

[[coso]]

tcp_ip... vamos a tener un problema tu y yo eh?

[[coso]]

ah no que ahora es diferente Ok

[dec]

Hola,

No sé si valdrá para algo o qué, pero, creo recordar que los "TStrings" tienen una propiedad "AllowDuplicates".

[Paolo]

Si creo recordar que la tienen, pero la idea no es esa sino elimine los que tengan los mismos caracteres aunque sea en distinto orden osea que elimine el "0135" y el "5301" y el "3501" y solo deje uno de los tres da igual cual.

Gracias por las respuestas