<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.28.1">
</HEAD>
<BODY>
El lun, 05-04-2010 a las 10:36 -0400, Joel Petit escribió:<BR>
<BR>
<BLOCKQUOTE TYPE=CITE>
Mi pregunta es la siguiente: si este mismo trozo de codigo sin la función StrToInt en la linea 7 funciona en otros computadores, ¿porque en mi computador solo funciona con la función StrToInt? <BR>
</BLOCKQUOTE>
Aunque en sólo en una ocasión me suedió que el mismo programa en un equipo funcionaba bien y en otro no hacía bien una condicional si no pasaba el string a mayúsculas (nunca logré encontrar por qué sucedía), al igual que el resto de mensajes me inclino a pensar que es por el uso de los variants. Así que el problema debería desaparecer usando el tipo en el parambyname.<BR>
<BR>
<BLOCKQUOTE TYPE=CITE>
<OL TYPE=1>
<LI TYPE=1 VALUE=1> if not qobjetos.IsEmpty then
<LI TYPE=1 VALUE=2> begin
<LI TYPE=1 VALUE=3> permiso:=False;
<LI TYPE=1 VALUE=4> end
<LI TYPE=1 VALUE=5> else
<LI TYPE=1 VALUE=6> begin
<LI TYPE=1 VALUE=7> permiso:=True;
<LI TYPE=1 VALUE=8> end;
</OL>
</BLOCKQUOTE>
<BR>
PD.: Estas líneas las podrías poner en una sóla. Un saludo.<BR>
permiso := qobjetos.IsEmpty;<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
<BR>
<HR NOSHADE LENGTH="200">
<BR>
<BR>
<B><FONT SIZE="1">ARTEX TRADING S.A.</FONT></B><BR>
<FONT SIZE="1">JOSÉ ANTONIO CUELLO PRINCIPAL</FONT><BR>
<BR>
<BR>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>