Delphi VS Visual Basic

[Casimiro Noteví]

Empezado por xander

[..][..]que entre gitanos no nos vamos a leer la mano

muy graciosa esa ocurrencia

[[egostar]]

Empezado por Casimiro Notevi

muy graciosa esa ocurrencia

Y tambien se puede decir

Entre bomberos no se pisa la manguera



Salud OS

[ucanneo]

Código PHP:

(1*)  Private Sub Command1_Click()                        

(2*)     Dim palabras() As String, i As Integer                   
(3)      palabras = Split(Text1, " ")                                 
   
(4)      For i = LBound(palabras) To UBound(palabras)        
(5)              Combo1.AddItem (palabras(i))                           
(6*)     Next                                                               
   
(7*)  End Sub 


Suponiendo que en la forma hay un txt multilinea, donde el usuario puede escribir lo que sea, y posteriormente separarlo por palabras para agregarlo a un combobox se me ha ocurrido poner el espacio blanco como delimitador(podría ser el enter o cualqueir cosa que se ocurra y para los fines que sean, bien podrian ponerse mas cosas o validarlas para juntarlas etc, pero sólo me interesa el dividir las palabras) considerando tambien el inicio del procedimiento su fin y hasta el "next" del for como lineas de código, e incluso el "Dim" ya que hasta podría precindirse de él (pero las buenas practicas de programación ante todo), vemos que en pocas lineas de código (y sobre todo muy pocas palabras) se ha hecho algo interesante



otro ejemplo es el clásico:

Código PHP:

Redim [Preserve] nArrayDinamico(elementos) 


Ahorra muchisimo trabajo (bueno en realidad sólo si lo comparamos con c++)




Saludos


pd.- Me ha encantado la iniciativa de los códigos
Me imagino tambien que alguien más experimentado en delphi, se las ingeniará para hacer lo mismo en la misma cantidad de lineas y de forma entendible

[[egostar]]

Hola

Con Delphi lo haría así:

Código Delphi [-]
  
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  REPEAT
    ComboBox1.Items.Add(Copy(Edit1.Text,1,Pos(' ',Edit1.Text)));
    Edit1.Text := Copy(Edit1.Text,Pos(' ',Edit1.Text)+1,Length(Edit1.Text));
  UNTIL Pos(' ',Edit1.Text) = 0;
  ComboBox1.Items.Add(Edit1.Text);
end;

Tal vez pudiera optimizarse, esto es lo que me permite mi dominio de Delphi.

Salud OS

[xander]

bueno, obviemos entonces lo obvio y nos centramos en el código que importa, tu primer ejemplo en Delphi se resolvería mas o menos así:

Código Delphi [-]
begin
  Combobox1.Items.Delimiter := ' ';
  Combobox1.Items.CommaText := Memo1.Text;
end;

Además, se utiliza mejor el paradigma orientado a objetos con este código...

el segundo no lo entiendo bien (porque no conozco mucho de VB) pero imagino que sea el equivalente a:

Código Delphi [-]
 SetLength (nArrayDinamico, elementos);

Ya me diran si estoy diciendo una barrabasada como acostumbro..

[[egostar]]

Vaya, pues mira que tengo muy pobres conocimientos de Delphi , incluso pudieramos obviar el delimiter, no se si sea mi version (Delphi4) pero me da un error de identificador no declarado.

Código Delphi [-]
begin
  Combobox1.Items.CommaText := Memo1.Text;
end;

Salud OS

[xander]

Empezado por egostar

Vaya, pues mira que tengo muy pobres conocimientos de Delphi , incluso pudieramos obviar el delimiter, no se si sea mi version (Delphi4) pero me da un error de identificador no declarado.

Tal vez en delphi 4 la propiedad tenía un nombre diferente, yo lo he hecho con Delphi 2007, pero afortunadamente el valor por defecto de esa propiedad es el espacio en blanco asi que es cierto, le podemos quitar una linea mas al procedimiento... ¿¿cuantas quedaron???... mi aritmetica ya no es lo que era en la primaria...

[ucanneo]

Empezado por xander

Tal vez en delphi 4 la propiedad tenía un nombre diferente, yo lo he hecho con Delphi 2007, pero afortunadamente el valor por defecto de esa propiedad es el espacio en blanco asi que es cierto, le podemos quitar una linea mas al procedimiento... ¿¿cuantas quedaron???... mi aritmetica ya no es lo que era en la primaria...

Pues en realidad el código si es el que pusiste en un principio, incluyendo hasta la linea que le quitas ya que no especificamente el delimitador es el espacio blanco, y pues casi casi es un empate, con la unica diferencia que si se desea modificar la lista pues adicionalmente se tiene en su propia variable y no hay que copiarla de ningun lado (patadas de ahogado jajaja )

y el segundo ejemplo, si és el que mencionas, pero la aclaracion ahí mismo presentada es que en cuanto a delphi no hay ningun ahorro, sólo en cuanto a c++
__________________________________

Orale,.... genial la idea, sigan participando, hay que proponer más ejemplos, la idea es que aprendamos todos, supongo que falta hacer lo contrario delphi >>>> vb (es obio que vb va a perder jejeje, sobre todo con eso de la herencia jaquemate para un lado, como para el otro por la integracion con el estandar office y no se trata de eso) pero es divertido (hay que darle una muerte digna a VB jajaja)



saludos