<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
ponete un ejemplo de como llamas a la funcion es decir que valores
le pasas a S y Desc<br>
<br>
El 25/07/2011 17:51, Gustavo Adolfo Cruz Martinez escribió:
<blockquote cite="mid:COL122-W790D430CBA8D8E95D90ABAE330@phx.gbl"
type="cite">
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
<div dir="ltr">
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 .
<div><br>
</div>
<div>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.</div>
<div><br>
</div>
<div>En esencia lo que sucede es que cuando intento imprimir o
visualizar el programa se cierra. </div>
<div><br>
</div>
<div>El error que me marca es el siguiente: "El proyecto
Eventuales.exe ha lanzado una excepción de la clase 'External:
SIGSEGV' "</div>
<div><br>
</div>
<div>y me lleva a este lugar: </div>
<div><br>
</div>
<div>function UTF8Desc(S: string; var Desc: string): Integer;</div>
<div>var</div>
<div> i,b: Integer;</div>
<div>begin</div>
<div> i := 1;</div>
<div> Result := 0;</div>
<div> SetLength(Desc, Length(S));</div>
<div> while i<=Length(s) do begin</div>
<div> b := UTF8CharacterStrictLength(@S[i]);</div>
<div> inc(i,b);</div>
<div> inc(Result);</div>
<div> <b> Desc[Result] := Char(b);</b></div>
<div> end;</div>
<div> Setlength(Desc, Result);</div>
<div>end; </div>
<div><br>
</div>
<div>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)."</div>
<div>o este: "Senos paranasales. maxilar inferior. órbitas.
articulaciones temporomandibulares. agujeros ópticos"</div>
<div><br>
</div>
<div>Muchas gracias de antemano por vuestro tiempo</div>
<div><br>
</div>
<div><br>
</div>
<div>GustavoCruz</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
Lazarus-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a>
</pre>
</blockquote>
<br>
</body>
</html>