Buscar palabra repetidas
 

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!

Hola,

Podrías probar con algo así:

Código Delphi [-]
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;

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:

Código Delphi [-]
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.

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

Gracias David.

Saludos

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..