Ver Mensaje Individual
  #8  
Antiguo 30-03-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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) {

  
TStringssl = new TStringList;

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

  for(
int i 0lv->Items->Counti++)
    
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 30-03-2015 a las 23:27:42.
Responder Con Cita