Exportar datos ListView a .txt

[ecfisa]

Hola andres_89.

Tal vez te resulte mejor unificar ambas acciones en una función:

Código PHP:

void appendData(TListView *lv, const AnsiString &fileName,
  const bool &append=true) {

  TStrings* sl = new TStringList;

  if (append && FileExists(fileName))
    sl->LoadFromFile(fileName);

  for(int i = 0; i < lv->Items->Count; i++)
    sl->Add(lv->Items->Item[i]->Caption + "," +
            lv->Items->Item[i]->SubItems->Text);

  sl->SaveToFile(fileName);
  delete sl;
} 


El parámetro append dictamina si se agregan o sobreescriben los datos, por defecto(omisión) se agregan.

Ejemplo de uso:

Código PHP:

void __fastcall TForm1::btnAppendClick(TObject *Sender)  {
  appendData(ListView1, "C:\\tmp\\Reporte.txt", CheckBox1->Checked);
} 


Para el ejemplo uso como argumento el estado de la propiedad Checked de un TCheckBox. Marcado agrega, si no sobreescribe.

Saludos