<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Daniel Rincón García escribió:
<blockquote
 cite="mid:cd6ad2b30711260420p62e40538x5a3e34d7f83ac944@mail.gmail.com"
 type="cite">Hola, necesito capturar el contenido de los campos de una
base de datos SQLite en una variable de tipo string.<br>
  <br>
Si hago esto:<br>
  <br>
  <span style="font-weight: bold;">   while not dsTest.EOF do</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">    begin</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">     DataToSend := DataToSend + </span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">                           
dsTest.FieldValues['Code'] + '\' +</span><br style="font-weight: bold;">
  <span style="font-weight: bold;">                           
dsTest.FieldValues['Name'] + '\' + </span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">                           
dsTest.FieldValues['Address'] + '#';</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">     dsTest.Next;</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">    end;   </span> <br>
  <br>
Obtengo el siguiente mensaje de error:<br>
  <br>
  <span style="font-weight: bold;">Project raised exception class
'RunError(231)'.</span><br>
  <br>
Si hago esto entonces funciona:<br>
  <br>
  <span style="font-weight: bold;">   while not dsTest.EOF do</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">    begin</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">     Cod :=
dsTest.FieldValues['Code'];</span><br style="font-weight: bold;">
  <span style="font-weight: bold;">     Nam :=
dsTest.FieldValues['Name'];</span><br style="font-weight: bold;">
  <span style="font-weight: bold;">     Addr :=
dsTest.FieldValues['Address'];</span><br style="font-weight: bold;">
  <span style="font-weight: bold;">     DataToSend := DataToSend + Cod
+ '\' + Nam + '\' + Addr + '#';</span><br style="font-weight: bold;">
  <span style="font-weight: bold;">     dsTest.Next;</span><br
 style="font-weight: bold;">
  <span style="font-weight: bold;">    end;    </span><br>
  <br>
Pero tengo que declarar tres variables de tipo string (Cod, Nam and
Addr).<br>
  <br>
¿Alguien me ayuda?</blockquote>
Hablo sin exceso conocimiento de causa pero parece que algún campo se
puede interpretar como algún tipo que no sea String, para ello puedes
usar algo así y asegurarte de que trabajas con Strings:<br>
<br>
DataToSend := DataToSend + dsTest.FieldbyName['Code'].AsString + '\' +
dsTest.FieldbyName['Name'].AsString + '\' +
dsTest.FieldbyName['Address'].AsString + '#';<br>
<br>
Se que la explicación no es muy buena pero el código debería ser
suficiente , si no lo es intentare explicarme mejor ;)<br>
<blockquote
 cite="mid:cd6ad2b30711260420p62e40538x5a3e34d7f83ac944@mail.gmail.com"
 type="cite">
  <pre wrap="">
<hr size="4" width="90%">
_______________________________________________
Lazarus-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus-es@lazarus.freepascal.org">Lazarus-es@lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a>
  </pre>
</blockquote>
<br>
</body>
</html>