functions

[Makiley]

Ufff parece que va de perlas, pero.. no te habia dicho que mi funcion esta en otra Unit distinta no? sorry.
Esque tengo varias units y tengo una units donde estan todos los procedimientos y funciones, y necesito que una de esas funciones le duelva 2 enteros a todas las demas units.
Ya me he definido el typo record como me habia dicho, pero cuando me voy a la Unit de los procedimientos y funciones cuando pongo result.money:=dinero... me dice que no.
Tambien era de esperar.
Hay alguna solucion. Gracias! y perdona por las molestias.

[[Ohcan]]

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;

[[Ohcan]]

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.

[Makiley]

Muchas graciass Ohcan! me ha servido todo!
Estoy empezando con esto de delphi, y me gusta, xD
Hasta otra!

[[Ohcan]]

De nada
Y cuidado... ¡que engancha! ;D