Ver Mensaje Individual
  #4  
Antiguo 05-09-2010
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Como dije en el post anterior habia incompatibilidades de tipo, gracias a la ayuda de wilson logre resolver ese problema.
El asunto estaba aqui:

Código Delphi [-]
procedure TDataExport.SaveRecords;
var
  Bookmark: TBookmark;  //TBookmarkStr => Tipo Original
  ACancel: Boolean;
begin
  FDataSet.DisableControls;
  try
    if FPreserveBookmark then
      Bookmark := DataSet.Bookmark; //Primer punto de error
    try
      FRecNo := 0;
      if FFetchFirst then
        FDataSet.First;
      while (not FDataSet.EOF) and FActive
        and ((FRecNo <= FMaxRecords) or (FMaxRecords = 0)) do
      begin
        ACancel := False;
        if Assigned(FBeforeWriteRecord) then
          FBeforeWriteRecord(Self, ACancel);

        if not ACancel then
        begin
          WriteRecord;
          Inc(FRecNo);

          if Assigned(FAfterWriteRecord) then
            FAfterWriteRecord(Self);
        end;
        FDataSet.Next;
      end;
    finally
      if FPreserveBookmark then
        FDataSet.Bookmark := Bookmark; //Segundo punto de error
    end;
  finally
    FDataSet.EnableControls;
  end;
end;

Se corrigio el tipo (caracteristicas nuevas de D2010) y compilo e instalo sin problemas para D2010.

Sin embargo aun continua un error: el archivo final XLS cuando se intenta abrir en Excel u OpenOffice aparecen caracteres extraños (Japoneses, cuadritos con 1 y 0) ahi si, no hay duda esto es de Unicode pero me declaro incompetente para solucionarlo. ¿Alguna ayuda?
__________________
ESTO ES UN FORO ... NO UN MÓVIL
¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender?
Responder Con Cita