[Lazarus-es] Error al imprimir un reporte en lazreport

[Hector S. Ponce]

ponete un ejemplo de como llamas a la funcion es decir que valores le 
pasas a S y Desc

El 25/07/2011 17:51, Gustavo Adolfo Cruz Martinez escribió:
> Buenas tardes. He tenido problemas al visualizar o imprimir 
> directamente un reporte en lazreport. Los datos los toma el reporte de 
> un campo que tiene 255 caracteres de una mdb .
>
> Estoy utilizando el la siguiente versión de lázarus: Versión #: 
> 0.9.31; Versión FPC: 2.4.3; Revisión SVN: 30686.
>
> En esencia lo que sucede es que cuando intento imprimir o visualizar 
> el programa se cierra.
>
> El error que me marca es el siguiente: "El proyecto Eventuales.exe ha 
> lanzado una excepción de la clase 'External: SIGSEGV' "
>
> y me lleva a este lugar:
>
> function UTF8Desc(S: string; var Desc: string): Integer;
> var
>     i,b: Integer;
> begin
>   i := 1;
>   Result := 0;
>   SetLength(Desc, Length(S));
>   while i<=Length(s) do begin
>     b := UTF8CharacterStrictLength(@S[i]);
>     inc(i,b);
>     inc(Result);
> *Desc[Result] := Char(b);*
>   end;
>   Setlength(Desc, Result);
> end;
>
> El texto que se debe mostrar es el siguiente: "Rayos X de Mano. dedos. 
> puño (muñeca). codo. pie.  clavícula. antebrazo. cuello de pie 
>  (tobillo)."
> o este: "Senos paranasales. maxilar inferior. órbitas.  articulaciones 
> temporomandibulares. agujeros  ópticos"
>
> Muchas gracias de antemano por vuestro tiempo
>
>
> GustavoCruz
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110725/426c25ae/attachment-0002.html>