Escribir en un archivo de texto sin repeticiones
 

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

estoy utilizando este codigo.

Código Delphi [-]
var
  F: TextFile;
  sArchivo: string;
begin
  sArchivo := ExtractFilePath( Application.ExeName ) + 'Prueba.txt';
  AssignFile( F, sArchivo );

  if FileExists( sArchivo ) then
    Append( F )
  else
    Rewrite( F );

  WriteLn( F, ComboBox1.Text' );
  CloseFile( F );
end

;

Hola wilcg.
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 :)

ecfisa, gracias por tu respuesta.
Lo que que quiero hacer del ComboBox, es utilizarlo para guardar y cargar todo lo que escriba en el.

Hola wilcg.
Para eso basta con hacer:

Código Delphi [-]
procedure SaveComboText(const aFileName: string; CB: TComboBox);
begin
  with TStringList.Create do
  try
    Text:= CB.Text;
    SaveToFile(aFileName);
  finally
    Free;
  end;
end;

Pero no entiendo donde entraría el tema de las repeticiones...

Saludos :)

Nuevamente gracias ecfisa,
creo que ya quedo, con respecto a que guardaba palabras duplicadas era con el código mio. Con el que tu me diste funciona bien.