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 :confused:


Gracias!
Spero q alguien m conteste

[FGarcia]

Hola!
Bienvenid@ a ClubDelphi Te recomiendo que leas la guia de estilo. (http://www.clubdelphi.com/foros/guiaestilo.php)

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

[eduarcol]

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


Que función es Len?


Len = Loguintud de la cadena.


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...


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;