Ok, the second "for" is about the Rows, not the Columns (duh). And the "Rows[i]" does not know about visibility. Maybe a hand-made FOR to create the line is needed?
2012/10/15 Alexsander Rosa <[email protected]> > I've managed to modify Grids.pas (SaveToCSVStream, line 10452) for the > headers: > > * for i := 0 to ColCount-1 do begin* > * c := ColumnFromGridColumn(i);* > * if c=nil then* > * HeaderL.Add(Cells[i, 0])* > * else* > * if c.Visible then* > * HeaderL.Add(c.Title.Caption);* > * end;* > > But the other "IF" for the data did not work: > > * for i:=StartRow to RowCount-1 do begin* > * c := ColumnFromGridColumn(i);* > * if c <> nil then* > * if not c.Visible then Continue;* > * Rows[i].StrictDelimiter := False; //force quoting of strings that > contain whitespace or Delimiter* > * Rows[i].Delimiter:=ADelimiter;* > * Lines.Add(Rows[i].DelimitedText);* > * end;* > > Any ideas? > > -- > Atenciosamente, > Alexsander da Rosa > > > -- Atenciosamente, Alexsander da Rosa
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
