Delphi VS Visual Basic

[sakuragi]

esto ta mas claro que el agua, pues claro esta mejor delphi que visual basic como de 1 a 1000


salud!

[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"))