nombres unicos en TXT

[diego007]

Hola Amig@s, mi pregunta es la siguiente: Tengo un .TXT el cual contiene una lista de nombres, por ejemplo:

Código PHP:

Carlos.1
Luis.1
Pedro.1
Carlos.1 


Como hacer para eliminar los nombres repetisos del .TXT (en este caso: Carlos.1).
En PHP yo uso una funcion como esta:

Código PHP:

$archivo = "lista.txt";
$data1 = file($archivo);
file_put_contents("lista.txt", implode('', array_unique(array_merge($data1)))); 


Pero en Delphi no se si hay una funcion como esta, de antemano les doy las gracias a todos por su ayuda

[roman]

Esta podría ser una opción

Código Delphi [-]
var
  SL: TStringList;

begin
  SL := TStringList.Create;

  try
    SL.Sorted := true;
    SL.Duplicates := dupIgnore;
    SL.LoadFromFile('nombres.txt');
    SL.SaveToFile('nombres.txt');
  finally
    SL.Free;
  end;
end;

Pero tiene el inconveniente que reordena las líneas. Si eso no es problema, entonces te puede servir.

// Saludos

[diego007]

Hola roman, gracias por tu ayuda, instale este codigo en mi sistema y trabaja super bien.
Salu2