Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
Hola.
A ver, te pongo un ejemplo ultra...
Hola.
A ver, te pongo un ejemplo ultra simplificado de que es lo que comprendí y como lo haría, tal vez nos ayude a entendernos.
...
implementation
type
TPlanet = record
l,b,r: Extended;
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
Hola.
procedure CargarPlanetas(var VP:...
Hola.
procedure CargarPlanetas(var VP: TvPlanetas);
begin
VP[1] := LBR_For_Sun(At_JDE,L,B,R);
VP[2] := LBR_For_Mercury(At_JDE,L,B,R);
VP[3] := LBR_For_Venus(At_JDE,L,B,R);
VP[4] :=...
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
No logro entender el asunto...
Usando un...
No logro entender el asunto...
Usando un arreglo, todos los planetas usan los mismos nombres de variables:
Planeta 1 (vp[1]) -> Lat, Lon, Rad
Planeta 2 (vp[2]) -> Lat, Lon, Rad
Planeta 3 (vp[3]) ->...
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
|
|
Foro: OOP
04-05-2020
|
|
Respuestas: 32
Visitas: 4.572
Hola.
No entiendo bien la situación, pero...
Hola.
No entiendo bien la situación, pero supongo que tendrías que cambiar el tipo del argumento de la función, por ejemplo:
type
TPlaneta = record
Lat : Extended;
Lon : Extended;
...
|
|
Foro: OOP
03-05-2020
|
|
Respuestas: 32
Visitas: 4.572
|
|
Foro: OOP
02-05-2020
|
|
Respuestas: 5
Visitas: 998
Hola.
function AngleToStr(Angle:...
Hola.
function AngleToStr(Angle: Extended):string;
var
m,s : Extended;
begin
m := Abs(Frac(Angle) * 60);
s := Abs(Frac(m) * 60);
Result := Format('%.2d° %.2d'' %2.2f"',[Trunc(Angle),...
|
|
Foro: C++ Builder
01-05-2020
|
|
Respuestas: 21
Visitas: 2.169
|
|
Foro: OOP
01-05-2020
|
|
Respuestas: 5
Visitas: 998
|
|
Foro: C++ Builder
30-04-2020
|
|
Respuestas: 21
Visitas: 2.169
|
|
Foro: OOP
30-04-2020
|
|
Respuestas: 17
Visitas: 1.978
|
|
Foro: OOP
29-04-2020
|
|
Respuestas: 17
Visitas: 1.978
|
|
Foro: OOP
29-04-2020
|
|
Respuestas: 17
Visitas: 1.978
|
|
Foro: OOP
29-04-2020
|
|
Respuestas: 17
Visitas: 1.978
Hola de nuevo.
De todos modos, si el rango de...
Hola de nuevo.
De todos modos, si el rango de fechas es tán amplio, el TDateTimePicker no es cómodo para desplazarse por ellas.
Seguramente el usuario se sienta mas cómodo ingresando la fecha...
|
|
Foro: OOP
29-04-2020
|
|
Respuestas: 17
Visitas: 1.978
|
|
Foro: OOP
29-04-2020
|
|
Respuestas: 45
Visitas: 2.842
|
|
Foro: Varios
28-04-2020
|
|
Respuestas: 1
Visitas: 1.670
|
|
Foro: Varios
28-04-2020
|
|
Respuestas: 2
Visitas: 1.468
Hola.
Revisa esto...
Hola.
Revisa esto (http://www.clubdelphi.com/foros/showthread.php?t=88398&highlight=santiago14).
Saludos :)
|
|
Foro: Varios
27-04-2020
|
|
Respuestas: 9
Visitas: 2.508
|
|
Foro: OOP
26-04-2020
|
|
Respuestas: 13
Visitas: 954
Hola.
Esta traducción se corresponde con la...
Hola.
Esta traducción se corresponde con la información que brindas y no te va a dar errores de compilación siempre que traduzcas bien las funciones Venus_... , pero me es imposible saber si...
|
|
Foro: OOP
26-04-2020
|
|
Respuestas: 13
Visitas: 954
Hola.
No conozco VB y tal vez lo permita, pero...
Hola.
No conozco VB y tal vez lo permita, pero en Delphi, aquí tenemos un problema, ya que no es posible asignarle un valor al resultado de una función.
Es decir no se puede hacer:
...
function...
|
|
Foro: OOP
26-04-2020
|
|
Respuestas: 13
Visitas: 954
Hola.
Nuevamente en google:
Entonces...
Hola.
Nuevamente en google:
Entonces aquí,
LBR_For_Venus = L & "|" & B & "|" & R
esta concatenando L, B y R con los caracteres "|", algo así como:
... FloatToStr(L) + '|' + FloatToStr(B) + '|' +...
|
|
Foro: OOP
25-04-2020
|
|
Respuestas: 13
Visitas: 954
Hola.
Por lo que acabo de ver, los dos puntos...
Hola.
Por lo que acabo de ver, los dos puntos ":" en VB se usan para separar una línea de código de otra (para poner mas de una línea de código por renglón).
Es decir que traducido a Delphi sería...
|
