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
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
