Escribir en un archivo de texto sin repeticiones

[ecfisa]

Hola wilcg.

Empezado por wilcg

Amigos del foro nuevamente por aqui, Necesito escribir el texto de un ComboBox en un archivo de texto pero sin que se repita.
...

No estoy seguro... Pero de lo anterior creo entender que deseas guardar los items de un ComboBox a un archivo de texto sin que se repitan.

Si es así podrías hacer:

Código Delphi [-]
procedure SaveUniqueItems(const aFileName: string; CB: TComboBox);
begin
  with TStringList.Create do
  try
    Sorted:= True;
    Duplicates:= dupIgnore;
    Assign(CB.Items);
    SaveToFile(aFileName);
  finally
    Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
begin
  SaveItems('SinRepetir.txt', ComboBox1);

Saludos