Problema con caracteres al exportar datos hacia excel con una rutina antígua

[Casimiro Notevi]

Mira algunos de los enlaces de final de página, abajo del todo.

[rrf]

Gracias Casimiro.

Ya he revisado los enlaces y no he encontrado algo que me resuelva la duda.
Creo que el problema radica en que Delphi 10.2 es incompatible con lo que hace esa rutina. Con Delphi 7 funciona bien.

Seguramente la causa es que Delphi 10.2 maneja los String de forma diferente a los antiguos Delphi (como Delphi 7), y solo reconoce el primer carácter de cada cadena de caracteres. Y posiblemente haya alguna función que permita una conversión o algo así, eso es lo que quisiera saber.

[Casimiro Notevi]

Prueba a cambiar esto:

Código Delphi [-]
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);

Por esto otro:

Código Delphi [-]
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: ansistring);

[rrf]

Muchas gracias Casimiro.

Ese era el "detalle" que no fui capaz de ver y que tan rápidamente has descubierto.

El problema está solucionado y esta rutina sigue siendo útil (19 años después de haber sido escrita).

Recibe mi más sincero agradecimiento por tu ayuda.

[Casimiro Notevi]