Delphi VS Visual Basic

[jachguate]

Bueno, allí va un código, a ver en cuantas líneas queda en vb:

Código Delphi [-]
  for I := 0 to ControlCount - 1 do
  begin
    Controls[i].Top := Controls[i].Top + 5;
    if (Controls[i] is TButton) then
      TButton(Controls[i]).Caption := TButton(Controls[i]).Caption + '!';
    if (Controls[i] is TEdit) then
      TEdit(Controls[i]).OnChange := NuevoEditChange;
  end;

Hasta luego.

[[egostar]]

Empezado por jachguate

Bueno, allí va un código, a ver en cuantas líneas queda en vb:

Código Delphi [-]
  for I := 0 to ControlCount - 1 do
  begin
    Controls[i].Top := Controls[i].Top + 5;
    if (Controls[i] is TButton) then
      TButton(Controls[i]).Caption := TButton(Controls[i]).Caption + '!';
    if (Controls[i] is TEdit) then
      TEdit(Controls[i]).OnChange := NuevoEditChange;
  end;

Hasta luego.

Bueno haciendo honor a nuestro compañero ucanneo, porque no comentas que es lo que hace ese código digo, ya sabes que habemos muchos que no tenemos esa capacidad de conceptualización

Salud OS

[HCammus]

Empezado por jachguate

Bueno, allí va un código, a ver en cuantas líneas queda en vb:


Código Delphi [-]
for I := 0 to ControlCount - 1 do
begin
Controls[i].Top := Controls[i].Top + 5;
if (Controls[i] is TButton) then
TButton(Controls[i]).Caption := TButton(Controls[i]).Caption + '!';
if (Controls[i] is TEdit) then
TEdit(Controls[i]).OnChange := NuevoEditChange;
end;





Hasta luego.

En VB quedaría exactamente igual solo que no necesitas ni el Begin ni el end; además que si se desea un If de una sola línea debería quedar al frente.

Yo ese código le agregaría un ElseIf en vez de otro If ya que el control ó es un TButton ó es un TEdit y no ambos al mismo tiempo.

Creo que para la versión 6 ó 4 del Delphi no se puede concatenar así tan olimpicamente el primer If, me disculpo si me equivoco.

Otra cosa es que la propiedad OnChange no existe para el TextBox, por cierto deberían de tratar de poner ejemplos para versiones iguales, el VB solo quedo hasta la versión 6, además deberían ser código que no relacionen en si a las propiedades de los objetos ya que el tratamiento de ellos si es abrumador entre ambos lenguajes.

Código PHP:

Dim/Private ctl As Object

For Each ctl In NombreFormulario.Controls
    If (TypeOf ctl Is TipodeControl) Then

    End If
Next 


[ixMike]

Empezado por HCammus

En VB quedaría exactamente igual solo que no necesitas ni el Begin ni el end; además que si se desea un If de una sola línea debería quedar al frente.

Yo ese código le agregaría un ElseIf en vez de otro If ya que el control ó es un TButton ó es un TEdit y no ambos al mismo tiempo.

Creo que para la versión 6 ó 4 del Delphi no se puede concatenar así tan olimpicamente el primer If, me disculpo si me equivoco.

Otra cosa es que la propiedad OnChange no existe para el TextBox, por cierto deberían de tratar de poner ejemplos para versiones iguales, el VB solo quedo hasta la versión 6, además deberían ser código que no relacionen en si a las propiedades de los objetos ya que el tratamiento de ellos si es abrumador entre ambos lenguajes.

Código PHP:

Dim/Private ctl As Object

For Each ctl In NombreFormulario.Controls
    If (TypeOf ctl Is TipodeControl) Then

    End If
Next 


El código de jachguate tampoco necesitaría del begin-end si no hubiera puesto esto:

Código Delphi [-]
Controls[i].Top := Controls[i].Top + 5;

y hubiese usado un else if (en Delphi va separado, pues es lo mismo, y en el ejemplo de jachguate lo único que arregla ponerlo es ahorrarse el escribir el begin-end del bucle for).

Empezado por HCammus

además deberían ser código que no relacionen en si a las propiedades de los objetos ya que el tratamiento de ellos si es abrumador entre ambos lenguajes

¿Por qué no? ¿Acaso no se están comparando? Tu código sería algo más largo si hubieras puesto un ejemplo (aunque sea con otras propiedades de otros tipos de objetos).


Salu2

[HCammus]

No, sería exactamente igual ya lo dije solo que no agregue el resto para hacerlo más genérico.

Y en cuanto a lo otro creo que idea era evaluar el lenguaje no los controles como tal, pero bueno creo que el equivalente de la propiedad OnChange del Delphi para el TextBox es Text.

Código PHP:

Dim/Private ctl As Object

For Each ctl In NombreFormulario.Controls
    Rem Control TEdit propiedad OnChange (creo que es la semejante para Delphi)
    If (TypeOf ctl Is TextBox) Then ctl.Text = ctl.Text & ', '
Next 


Solo tengo una duda y es para que versión del Delphi es el código????, además que veo que el array de controles es genérico pero puede ser reinstanciado a un control como si fuera una matriz, mmm si es así creo que tendría que agregarle algo más al código que yo trascribí.

Editado

Creo que la primer instrucción sería así en VB

Código PHP:

I = I + 1
NameForm.Controls(ctl).Item(I).Top = NameForm.Controls(ctl).Item(I).Top + 5 


[ucanneo]

Código PHP:

  Dim c As Integer
  For c = 0 To Controls.Count - 1
  
   Controls.Item(c).Top = Controls.Item(c).Top + 5
   If TypeOf Controls.Item(c) Is CommandButton Then Controls.Item(c).Caption = Controls.Item(c).Caption & "!"
   If TypeOf Controls.Item(c) Is TextBox Then Controls.Item(c).Tag = 1
    
  Next 


Suponiendo que hacemos uso "TEdit(Controls[i]).OnChange" y lo cambiamos por otro evento, estariamos entrando a cosas que VB no puede hacer (o al menos no tan facilmente), puesto que su orientacion a "eventos" no permitiria tal cosa, pero bueno por ahi dice la etiqueta de "Tag" en cualquier control de vb "Guarda datos adicionales para sus programas", hay quien dice que se hizo para este tipo de situaciones (ya me he topado con este problema en vb antes y sólo s me ha ocurrido solucionarlo así... sigo investigando no se me habia ocurrido ir más allá )


saludos

[ixMike]

Empezado por HCammus

Solo tengo una duda y es para que versión del Delphi es el código????

Para todas. En las versiones más recientes, añaden algún nuevo tipo, alguna nueva propiedad... pero por lo general, el código es compatible con versiones anteriores y posteriores. Es otra de las genialidades que tiene Delphi

[HCammus]

Empezado por ixMike

Para todas. En las versiones más recientes, añaden algún nuevo tipo, alguna nueva propiedad... pero por lo general, el código es compatible con versiones anteriores y posteriores. Es otra de las genialidades que tiene Delphi

Estas completamente seguro de que sirve en todas las versiones de Delphi, es muy aventado decirlo así tan sobradamente, yo me he visto con problemas de códigos que hechos en la versión 4 en la 6 toca prácticamente recodificarlos aunque esto no aplica en todos los casos.

Un ejemplo sencillo de concatenación y conversión de datos

Código PHP:

Dim dFactor As Double

    dFactor = CDbl("1" & String$(NumDigitsAfterDecimal, "0")) 


[[Caral]]

Hola
La verdad no se que es lo que se defiende?.
Los números, por lo menos en este debate son claros 94,44% Delphi 5,56% VB.
Que se defiende, Código, ventajas, desventajas.?
Yo creo que depende mucho del programador y del entusiasmo o conocimiento que tenga del lenguaje en especial.
Estoy convencido y nadie me va ha hacer cambiar de opinión en que VB es mucho mas complicado, exigente, tedioso, poco entendible y no se cuantas cosas mas que delphi.
No solo por mi experiencia en esto (autodidacta), si no por la experiencia de las personas que contrate y que programaban en VB, Profesionales ,(Pobrecillos).
Defender lo indefendible es absurdo.
No hay comparación Delphi le da una paliza a VB, por donde lo quieran ver, querer seguir en este debate no tiene lógica, para mi.
Siempre habrá quien quera nadar contra corriente, tarde o temprano lo veremos sacudido por esta, irremediablemente la corriente lo arrastrara, tiempo al tiempo.
Es como seguir con IE, cuando Firefox es mas rápido, efectivo, eficiente, etc, etc.
No he visto, objetivamente, una razón lógica y mucho menos técnica que demuestre que VB es un lenguaje que se acerque por lo menos un poco a Delphi, en esta vida hay que demostrar, no hablar, lo pueden hacer los que se afanan en defender lo indefendible?, lo dudo.
Si pueden hacer de un aprendiz un Novato, hablamos.
Saludos