Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-02-2006
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Poder: 22
Ohcan Va por buen camino
Simplemente declara el record en la misma unit en que tienes la definición de tu función.
y cuando la llames puedes hacer algo así:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  g,h:Integer;
begin
  //Desde el form1, llamamos a MiFuncion que está en form2
  g := Form2.MiFuncion(parametros).money;
  h := Form2.MiFuncion(parametros).percent;
  //En el uses de form1 debes tener la unit del form2
end;
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)

Última edición por Ohcan fecha: 03-02-2006 a las 13:58:53.
Responder Con Cita
  #2  
Antiguo 03-02-2006
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Poder: 22
Ohcan Va por buen camino
o también:
Código Delphi [-]
var
  varRecord:TMiRecord;
begin
  varRecord:= Form2.MiFuncion(parametros);
end;
Esta segunda opción es mejor (creo), ya que en el post anterior ejecutarías dos veces la funcion y con esta otra sólo una.
Y podrías hacer varRecor.money y varRecord.percent

Saludos.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)

Última edición por Ohcan fecha: 03-02-2006 a las 14:05:19.
Responder Con Cita
  #3  
Antiguo 03-02-2006
Makiley Makiley is offline
Miembro
 
Registrado: feb 2006
Posts: 14
Poder: 0
Makiley Va por buen camino
Muchas graciass Ohcan! me ha servido todo!
Estoy empezando con esto de delphi, y me gusta, xD
Hasta otra!
Responder Con Cita
  #4  
Antiguo 06-02-2006
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Poder: 22
Ohcan Va por buen camino
De nada
Y cuidado... ¡que engancha! ;D
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Nested Aggregate Functions bartHo Firebird e Interbase 8 20-05-2005 01:50:34
UDF funciones / Functions firebird ASAPLTDA Firebird e Interbase 3 01-04-2005 17:38:26
Error loading functions from DLL MarioATamborini Firebird e Interbase 2 01-03-2005 14:19:44
¿Cómo puedo enviar y recibir archivos vía IRC con el componente TIdIRC? DarkByte Internet 4 26-06-2004 17:54:05


La franja horaria es GMT +2. Ahora son las 09:00:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi