Hola a tod@s
Muchas a Ecfisa que me dio el código para poder plantear la solución; la parte final del problema radicada en el un código ascii incorrecto, y para el caso revise la tabla ascii y me di cuenta que estaba confundiendo el código que corresponde al tab del #9 con # 10, al corregir esto se ha solucionado el problema, dejo el código que quedo ya probado, por si alguien desea utilizarlo.
Código Delphi
[-]
procedure CopiarDBGridPortaPales (pBDGrid : TDBGrid);
var
i_local,j_local: Integer;
BookMark_local: TBookmarkStr;
s_local: string;
begin
pBDGrid.DataSource.DataSet.DisableControls; try
BookMark_local:= pBDGrid.DataSource.DataSet.Bookmark; pBDGrid.DataSource.DataSet.first; s_local:= '';
for i_local:= 1 to pBDGrid.Datasource.dataset.RecordCount - 1 do begin
for j_local:= 0 to pBDGrid.FieldCount - 1 do begin
s_local:= s_local + pBDGrid.Fields[j_local].AsString;
if i_local < pBDGrid.datasource.dataset.recordCount then s_local:= s_local + #9;
end;
s_local:= s_local + #10#13; pBDGrid.DataSource.DataSet.Next; end;
ClipBoard.SetTextBuf(PChar(s_local)); pBDGrid.DataSource.DataSet.Bookmark:= BookMark_local; finally
pBDGrid.DataSource.DataSet.EnableControls;
end;
end;
gertorresm
Colombia