Delphi .. Visual Basic
 

Hola!
Tengo un trozo de un programa que tengo que hacer en Visual Basic pero no se como pasarlo al lenguaje object pascal , el de delphi...

Alguien me ayuda?

desplazamiento= Form1.Text4.Text
longitud= Len( Form1.Text1.Text)
Form1.Text2.Text = ""
For i = 1 to longitud
c= Asc( Mid (Form1.Text1.Text, i,1))
c= c + desplazamiento
Form1.Text2.Text = Form1.Text2.Text + Chr (c)
Next i
End Sub

....

Estoy muy perdida :(
Que función es Len?
Y que es Asc o mid o chr?
No se como hacerlo :confused:


Gracias!
Spero q alguien m conteste

Hola!
Bienvenid@ a ClubDelphi Te recomiendo que leas la guia de estilo.

Realmente no se entiende tu pregunta. No esperamos en el club que tengas un estilo de redaccion como para una novela pero si cuando menos que tu mism@ entiendas tu pregunta y nosotros tambien.

Dices que tienes un codigo que lo tienes que hacer en VB y..... nos das dicho codigo :confused::confused:, luego dices que lo quieres convertir a Delphi pero no sabes que significa el codigo en VB:confused::confused:

Realmente no entiendo que es lo que realmente quieres o sabes. ¿Sabes VB? ¿Sabes Delphi?

En fin! Si tienes ese codigo y tienes el Visual Studio supongo tienes instalado el msdn de ahi pues solo consulta la ayuda para saber que hace cada funcion o comando del codigo que muestras. Despues cuando hayas comprendido que es lo que hace el codigo inicia la traduccion a Delphi.

Si no tienes el msdn entonces tienes a San Google.

No esperes que aqui se te "haga la tarea". Inicia tu la tarea y aqui te ayudamos en lo que se atore. Saludos!

Saludos

Como te decia el amigo Garcia, lee la guia, segun entendi necesitas saber esto

Len = Loguintud de la cadena.

Asc = Devuelve el valor ASCII del caracter

las otras no recuerdo bien, si mal no lo se mid busca una cadena dentro de la otra, y chr devuelve el carater de un valor ASCII

Se entiende si lo lees detenidamente: Tiene ese código en VB y lo quiere pasar a Delphi...

Código Delphi [-]
Procedure LoMismo;
var c,i,desplazamiento,longitud:Integer;

Begin
  desplazamiento:= StrToInt(Form1.Text4.Text);
  longitud          := Length( Form1.Text1.Text);
  Form1.Text2.Text := '';
  For i := 1 to longitud Do
  Begin
    c := Asc( Copy (Form1.Text1.Text, i,1));
    c := c + desplazamiento;
    Form1.Text2.Text := Form1.Text2.Text + Chr (c);
  End;
End;