<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFCC">
<div class="moz-cite-prefix">El 03/09/2013 06:44 p.m., Ismael L.
Donis Garcia escribió:<br>
</div>
<blockquote
cite="mid:4B376E2ED7C1410DAFE53A316CBE3EA6@eicc.citricos.cu"
type="cite">
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
<meta content="MSHTML 6.00.2900.5512" name="GENERATOR">
<style></style>
<div><font size="2" face="Arial">No entiendo cuando me dices fuera
del formulario.</font></div>
<div> </div>
<div><font size="2" face="Arial">Yo lo hago dentro del formulario
en la parte superior debajo de donde dice implementación.</font></div>
<div> </div>
<div><font size="2" face="Arial">y lo llamo desde otr formulario
como dije antes. Osea diciendo desde otro formulario:</font></div>
<div> </div>
<div> </div>
<div><font size="2" face="Arial">var<br>
f: Tform1;<br>
begin<br>
f:=Tform1.Create(Self);<br>
f.ShowModal;<br>
f.Free;<br>
end;</font></div>
<div> </div>
<div> </div>
<div><font size="2" face="Arial">Probe poniendo como me dice Maxi
Private y me da el siguiente error:</font></div>
<div> </div>
<div><font size="2" face="Arial">uflbal.pas(114,2) Fatal: Syntax
error, ":" expected but "identifier BVALIDA" found<br>
<br>
</font><font size="2" face="Arial">Tengo declarado lo siguiente:</font></div>
<div> </div>
<div> </div>
<div><font size="2" face="Arial">implementation</font></div>
<div> </div>
<div><font size="2" face="Arial">uses<br>
udm, ufconta, ufvisual;</font></div>
<div> </div>
<div><font size="2" face="Arial">type<br>
TBranch = record<br>
Sum: string;<br>
Debe: string;<br>
Haber: string;<br>
sascta: array of string;<br>
sacap: array of string;<br>
sascap: array of string;<br>
saele: array of string;<br>
saemp: array of string;<br>
pdscta: array of string;<br>
phscta: array of string;<br>
pdcap: array of string;<br>
phcap: array of string;<br>
pdscap: array of string;<br>
phscap: array of string;<br>
pdele: array of string;<br>
phele: array of string;<br>
pdemp: array of string;<br>
phemp: array of string;<br>
end;</font></div>
<div> </div>
<div><font size="2" face="Arial">var<br>
private<br>
bvalida, blist: boolean;<br>
sentidad, snota, strscta, strcap, strscap, strele, stremp:
string;<br>
iano, CtaIndex, SCtaIndex, CapIndex, SCapIndex, EleIndex,
EmpIndex: integer;<br>
lcampos: longint;<br>
ddebe, dhaber, ddif, dmdebe, dmhaber, dmdif: double;<br>
dini: TDate;<br>
Hdrs: array of TBranch;<br>
end; </font></div>
<div><font size="2" face="Arial"> </font></div>
<div><font size="2" face="Arial">El private lo puse porque
tratando de hacer lo que me dijo Maxi y no funcionó. Si quito
el private si funciona, pero las variables de me van del
hambito que deseo.</font></div>
<div> </div>
<div><font size="2" face="Arial">Deseo que solo se vean dentro del
formulario.</font></div>
<div> </div>
<div><font size="2" face="Arial">O es que hay que declararlas
dentro del private de los procedimientos?</font></div>
<div> </div>
<div><font size="2" face="Arial">osea aquí?</font></div>
<div> </div>
<div><font size="2" face="Arial"> private<br>
{ private declarations } </font></div>
<div> </div>
<div><font size="2" face="Arial">Yo ahí declaro las funciones y
los precedimientos privados. Por ejemplo tengo en este
formulario:</font></div>
</blockquote>
<br>
<font size="2"><font face="Arial">Hola Ismael, a eso se referia en e<font
size="2">l mensaje anterior, en la seccion private de la clase
que define tu <font size="2">formulario, <font size="2">si
lo ha<font size="2">ces "suelto" en la unidad<font
size="2">, fuera de la clase<font size="2"> la varia<font
size="2">ble <font size="2">seri<font size="2">a
visible por toda la unidad y <font size="2">solo
se reiniciaria con <font size="2">al
ejecutar el programa y no cada vez que
llamas al formulario<font size="2">. <font
size="2">Espero que se entienda mi
comentario!<br>
<font size="2">Saludos!<br>
<br>
</font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font><br>
</body>
</html>