Hola a tod@s.
Estoy intentando migrar de Delphi 2007 a Berlin un código hecho por otros y me encuentro un problema en una parte que se dedica a la impresión en modo texto.
El código original, que funciona correctamente en Delphi 2007 y que no entiendo muy bien, es el siguiente (extracto):
Código Delphi
[-]
var
Linea: String;
LineaLeida: Array [0..1024] of Char;
LineaOEM: Array [0..1024] of Char;
begin
...
StrPCopy(Addr(LineaLeida), Linea);
CharToOEM(LineaLeida, LineaOEM);
Linea := StrPas(LineaOEM);
esto creo que lo que hace es preparar la cadena de caracteres de la variable "linea" para imprimirla de forma correcta en una impresora matricial. Cuando hablo "de forma correcta" me refiero a los acentos y caracteres especiales.
El tema es que cuando compilo esto en Berlin me da error en el "CharToOem" que dice:
E2010 Incompatible types: 'PAnsiChar' and 'array[0..1024] of Char'
¿Alguna idea?
Gracias y un saludo