Delphi .. Visual Basic

[Saara]

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


Gracias!
Spero q alguien m conteste

[[FGarcia]]

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 , luego dices que lo quieres convertir a Delphi pero no sabes que significa el codigo en VB

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

[[eduarcol]]

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

Empezado por Saara

Que función es Len?

Len = Loguintud de la cadena.

Empezado por Saara

Asc

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

[[AzidRain]]

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;