Buscar palabra repetidas

[ZayDun]

Hola, tengo un problema y es que tengo un memo que carga un diccionario que contiene miles de palabras pero algunas estan duplicadas, como podria hacer para que eliminara las repetidas? muchas GRACIAS!

[dec]

Hola,

Podrías probar con algo así:


var
t: TStringList;
begin
t := TStringList.Create();
try
t.Sorted := true;
t.CaseSensitive := true;
t.Duplicates := dupIgnore;
t.LoadFromFile('C:\archivo.txt');
Memo1.Lines.Assign(t);
finally
t.Free();
end;
end;

[jhonny]

Pues me a causado curiosidad el codigo que dec a mostrado, ya que o conocia o no recordaba la propiedad Duplicates de la clase TStringList, asi que hice unas pequeñisimas pruebas y he notado que tambien funciona sin indicarle el dupIgnore:


var
t: TStringList;
begin
t := TStringList.Create();
try
t.Sorted := true;
t.CaseSensitive := true;
t.LoadFromFile('C:\archivo.txt');
Memo1.Lines.Assign(t);
finally
t.Free();
end;
end;


Es como si dupIgnore fuera el valor por defecto.

[Bicho]

Realmente curioso. No deja uno de aprender cosas nuevas.
Yo tampoco conocía esa propiedad.

Gracias David.

Saludos

[bothy]

Hola amigos de nuevo. este hilo es un poco viejo,trata de eliminar las palabras repetidas en un memo pero yo quisiera saber como mostrar en otro memo o label solo las palabras repetidas..