convertir arreglo Array[0..33] of Char; a cadena

[richy08]

gracias roman y eficsa por su tiempo, ahi va de donde me surge la duda estoy tratando de usar el sdk de contpaqi, tengo un record declarado asi:

Código Delphi [-]
type
  TRegDocumento = Record
    aFolio         : Double;
    aNumMoneda     : LongInt;
    aTipoCambio    : Double;
    aImporte       : Double;
    aDescuentoDoc1 : Double;
    aDescuentoDoc2 : Double;
    aSistemaOrigen : LongInt;
    aCodConcepto   : Array[0..kLongCodigo] of Char;
    aSerie         : Array[0..kLongSerie] of Char;
    aFecha         : Array[0..kLongFecha] of Char;
    aCodigoCteProv : Array[0..kLongCodigo] of Char;
    aCodigoAgente  : Array[0..kLongCodigo] of Char;
    aReferencia    : Array[0..kLongReferencia] of Char;
    aAfecta        : LongInt;
  end {RegDocumento};

type
  LPFREGDOCUMENTO = ^TRegDocumento;

despues en el evento de un boton tengo esto

Código Delphi [-]
var
  documento: LPFREGDOCUMENTO;
  lSerie : Array[0..kLongSerie] of Char;
  aFolio :double;

se supone que con esta funcion el sdk de contpaq me devuelve la serie y el folio del cfdi en uso.

Código Delphi [-]
 lError:=fSiguienteFolio('5',  lSerie, aFolio);
     //showmessage(lSerie);
     if lError <> kSIN_ERRORES  then
     begin
      rMensajeError( lError );
      FreeMem(documento);
      Exit;
     end;

pero al querer mandarle de nuevo esos datos al sdk de esta manera me dice que los tipos de datos son incompatibles

Código Delphi [-]
    documento.aFolio:=aFolio;
    documento.aNumMoneda:=1;
    documento.aTipoCambio:=1;
    documento.aImporte:=5000.50;
    documento.aDescuentoDoc1:=0;
    documento.aDescuentoDoc2:=0;
    documento.aSistemaOrigen:=5;
    documento.aCodConcepto:='5';
    documento.aSerie:=lserie;                  <------------------aqui esta el error 
    documento.aFecha:='01/01/2012';
    documento.aCodigoCteProv :='1';
    documento.aAfecta:=0;

saludos

[ecfisa]

Hola.

Código Delphi [-]
 documento.aSerie:=lserie;                  <------------------aqui esta el error

Pero en ese caso no estás copiando una variable de tipo string a otra como indicabas en el mensaje #4 ni tampoco un array of char a string. Estas copiando un array of char a otro.

En este caso probá de este modo:

Código Delphi [-]
  CopyMemory(@documento.aSerie[0], @lSerie[0], SizeOf(lSerie));

Saludos.

[richy08]

Empezado por ecfisa

Hola.

Pero en ese caso no estás copiando una variable de tipo string a otra como indicabas en el mensaje #4 ni tampoco un array of char a string. Estas copiando un array of char a otro.

En este caso probá de este modo:
Código Delphi [-] CopyMemory(@documento.aSerie[0], @lSerie[0], SizeOf(lSerie));


Saludos.

mil gracias Eficsa esto es lo que estaba buscando

saludos