Eliminar duplicados lista con mismos caracteres

[Paolo]

Me gustaria saber como de esta tstringlist :confused: 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....
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 :



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? :D:D:D

[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 :)

[coso]

hola, no estoy muy seguro pero creo q esto funciona


procedure TForm1.Button2Click(Sender: TObject);
var
i,j : integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
for j := i + 1 to Memo1.Lines.Count - 1 do
if Permuta(Memo1.Lines[i],Memo1.Lines[j]) then Memo1.Lines.Delete(i);
end;
function TForm1.Permuta(s1,s2 : string) : boolean;
var
j : integer;
begin
result := true;
j := 1;
while (j < length(s1)) and (result = true) do
begin
result := result and (Pos(s1[j],s2)<>0);
stringreplace(s2,s1[j],'',[]);
inc(j);
end;
end;



tendrias que mirar casos donde hayan caracteres repetidos (ex, 5113, 1351, 1355...creo que si, pero no se bien bien si los consideraria igual). Al menos, la idea va por aqui

[Paolo]

Me funciona pero ahora lo que quiero hacer es que los compare de dos en dos, que no sea lo mismo 13 que 31, de todas formas lo dicho gracias a todos. :D:D

[tcp_ip_es]

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

[coso]

(porque te me adelantaste ese dia en todas las respuestas)

[tcp_ip_es]

estaba fino ese día :D hoy estoy más denso.... :rolleyes:

[coso]

es lo q tienen los lunes, ya pasara ;)