Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Buscar en los Foros
Actualizar esta página Resultados de Búsqueda
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Página 7 de 20 « Primero < 456 7 891017 > Último »
Mostrando resultados del 151 al 175 de 500
La búsqueda tomó 0,08 segundos; generada hace 30 minuto(s). Buscar: Mensajes Hechos Por: ecfisa
Foro: OOP 04-05-2020
Respuestas: 32
Visitas: 5.030
Escrito Por ecfisa
Hola. En tu caso creo que es la primera, la que...

Hola.

En tu caso creo que es la primera, la que utiliza las funciónes "LBR_For_xxxx" (de las que desconozco todo). La del ejemplo fué eso; un ejemplo.
Es decir, deberías llenar cada uno de los ...
Foro: OOP 04-05-2020
Respuestas: 32
Visitas: 5.030
Escrito Por ecfisa
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: 5.030
Escrito Por ecfisa
Perdón, no sé donde puse la cabeza... :o Olvida...

Perdón, no sé donde puse la cabeza... :o

Olvida el mensaje anterior, debería haber sido:

procedure CargarPlanetas(var VP: TvPlanetas);
begin
LBR_For_Sun(At_JDE, VP[1].Lat, VP[1].Lon, VP[1].Rad);
...
Foro: OOP 04-05-2020
Respuestas: 32
Visitas: 5.030
Escrito Por ecfisa
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: 5.030
Escrito Por ecfisa
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: 5.030
Escrito Por ecfisa
Hola. Si tienes: TPlaneta = record Lat :...

Hola.

Si tienes:

TPlaneta = record
Lat : Extended;
Lon : Extended;
Rad : Extended;
end;
TvPlaneta: array[1..9] of TPlaneta;
Foro: OOP 04-05-2020
Respuestas: 32
Visitas: 5.030
Escrito Por ecfisa
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 04-05-2020
Respuestas: 32
Visitas: 5.030
Escrito Por ecfisa
Hola. Podes usar un arreglo de record,...

Hola.

Podes usar un arreglo de record, vg.r.:

...
implementation {$R *.dfm}

const
NPLANETAS = 9; // (u ocho según consideres a Plutón)
Foro: OOP 02-05-2020
Respuestas: 5
Visitas: 1.145
Escrito Por ecfisa
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.634
Escrito Por ecfisa
Hola. Te estaríamos muy agradecidos si nos...

Hola.

Te estaríamos muy agradecidos si nos compartieras como.

Saludos :)
Foro: OOP 01-05-2020
Respuestas: 5
Visitas: 1.145
Escrito Por ecfisa
Hola Intenta de con este formato: function...

Hola

Intenta de con este formato:

function AngleToStr(angle: Extended):string;
...
Result := Format('%.2d° %.2d'' %.2d"',[d, trunc(m), trunc(s)]);
end;
Foro: C++ Builder 30-04-2020
Respuestas: 21
Visitas: 2.634
Escrito Por ecfisa
Hola. No sé si es lo que andas buscando, pero te...

Hola.

No sé si es lo que andas buscando, pero te pongo un ejemplo que cambia el contenido del TEdit indicado en la ventana...
Foro: OOP 30-04-2020
Respuestas: 17
Visitas: 2.256
Escrito Por ecfisa
Hola. Que raro... será la versión de Delphi, en...

Hola.

Que raro... será la versión de Delphi, en mi caso funciona correctamente:

https://i.postimg.cc/85N8Xv4x/maskEdt.gif

Saludos :)
Foro: OOP 30-04-2020
Respuestas: 17
Visitas: 2.256
Escrito Por ecfisa
Hola. ¿ Algo así ? ... begin MaskEdit1.Text ...

Hola.

¿ Algo así ?

...
begin
MaskEdit1.Text := '';
MaskEdit1.EditMask := '!90°90''90";1;_'
Foro: OOP 29-04-2020
Respuestas: 17
Visitas: 2.256
Escrito Por ecfisa
Hola. Intenta esta máscara a ver si cumple con...

Hola.

Intenta esta máscara a ver si cumple con lo que necesitas:

procedure TForm.FormCreate(Sender: TObject);
begin
MaskEdit1.EditMask := '!09.09.0099;1;_';
...
Foro: OOP 29-04-2020
Respuestas: 17
Visitas: 2.256
Escrito Por ecfisa
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: 2.256
Escrito Por ecfisa
Hola. Es un comportamiento de windows. Extraido...

Hola.

Es un comportamiento de windows.

Extraido de: About Date and Time Picker Controls (https://docs.microsoft.com/en-us/windows/win32/controls/date-and-time-picker-controls)

Saludos :)
Foro: OOP 29-04-2020
Respuestas: 45
Visitas: 3.926
Escrito Por ecfisa
Dados los valores: x = 0.621746; y =...

Dados los valores:

x = 0.621746;
y = -0.664810;
z = -0.033134;

Sqr (cuadrado de un número):

(x*x + y*y + z*z)² = (0.8296382866)² = 0.68883997865
Foro: Varios 28-04-2020
Respuestas: 1
Visitas: 1.785
Escrito Por ecfisa
Hola. Si no te entendí mal, podrías hacer algo...

Hola.

Si no te entendí mal, podrías hacer algo así:

procedure InsertInREColFil(const str: string; col, fil:Integer; RE: TRichEdit);
var
s: string;
begin
if fil <= RE.Lines.Count then
begin
Foro: Varios 28-04-2020
Respuestas: 2
Visitas: 1.608
Escrito Por ecfisa
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.809
Escrito Por ecfisa
Hola. Revisa este artículo: ¿Hay vida después de...

Hola.

Revisa este artículo: ¿Hay vida después de la muerte? (https://www.marteens.com/koan02.htm)

Saludos :)
Foro: OOP 26-04-2020
Respuestas: 13
Visitas: 1.218
Escrito Por ecfisa
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: 1.218
Escrito Por ecfisa
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: 1.218
Escrito Por ecfisa
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: 1.218
Escrito Por ecfisa
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...
Mostrando resultados del 151 al 175 de 500
Página 7 de 20 « Primero < 456 7 891017 > Último »

 
Saltar a Foro

La franja horaria es GMT +2. Ahora son las 16:35:50.

Club Delphi - Archivo - Top

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