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í:

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;

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

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.

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