Foros Club Delphi - nombres unicos en TXT

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - nombres unicos en TXT (https://www.clubdelphi.com/foros/showthread.php?t=67469)

nombres unicos en TXT

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

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

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