Mudar Estas funciones de vb a Delphi

[ColdFusion]

ok eso me keda claro, ahora surge otra duda
como uso el
select case

nesecito alguien que sepa programar en vb y delphi para que me pueda ayuda

es que nesecito UBound

por ejemplo esta funcion

Function StrIPToHexIP(IpStr As String) As String
Dim SplitIp() As String
Dim ConvertingLoop As Integer
SplitIp = Split(IpStr, ".")
For ConvertingLoop = 0 To UBound(SplitIp)
StrIPToHexIP = StrIPToHexIP + Chr(SplitIp(ConvertingLoop))
Next ConvertingLoop
End Function

el CStr

Function HexIPToStrIp(IpStr As String) As String
Dim ConvertingLoop As Integer
For ConvertingLoop = 1 To 4
HexIPToStrIp = HexIPToStrIp + CStr(Asc(Mid(IpStr, ConvertingLoop, 1))) + "."
Next ConvertingLoop
HexIPToStrIp = Left(HexIPToStrIp, Len(HexIPToStrIp) - 1)
End Function

[ContraVeneno]

El "select Case" de VB es "Case [Arguemento] Of" en Delphi. Puedes consultar la ayuda de delphi o la página de Delphi Basics para más información.

Sigo sin saber que es lo que hace la función UBound ni la función Split, pero me imagino.

Si son operaciones matemáticas, puedes consultar en la ayuda de delphi la unidad Math, ahí podrás ver todas las funcione que tienes disponibles. Para operaciones con cadenas de caracteres (strings) puedes consultar la unidad StrUtils y podrás ver todas las funciones que tiene disponibles.

[Delfin]

Empezado por ColdFusion

Function StrIPToHexIP(IpStr As String) As String
Dim SplitIp() As String
Dim ConvertingLoop As Integer
SplitIp = Split(IpStr, ".")
For ConvertingLoop = 0 To UBound(SplitIp)
StrIPToHexIP = StrIPToHexIP + Chr(SplitIp(ConvertingLoop))
Next ConvertingLoop
End Function

Tengo entendido que el UBound es para calcular el numero de elementos que tiene el arreglo. Lo que puedes hacer es meter tu cadena que tiene el arreglo en un TStringList de la siguiente manera:

Código Delphi [-]
Var
      Lista : TStringList;
begin
      Lista := TStringList.Create;
      Lista.DelimitedText := '192.98.34.9'; //En tu caso, tu variable por parámetro para la función
      Lista.Delimiter := '.';
      Maximo := Lista.Count; ///Este sería el equivalente de UBound para los StringList
      .... ///Ya aquí iría el resto de la implementación de la función

Ten en cuenta que los índices de los elementos de los StringList comienzan en 0, por lo que tu for en este caso, iría desde 0 hasta Maximo - 1. Ahora bien:

Empezado por ColdFusion

el CStr

CStr convierte a cadena una variable, por tanto puedes usar cualquiera de las rutinas de conversión correspondientes (FloatToStr, IntToStr, etc). Consulta la ayuda de la unidad SysUtils, pues ahí estan todas las opciones que tienes disponibles y también StrUtils como dijeron anteriormente.

¡Saludos!

[Robert01]

A ver si anda de e sta manera:

Código Delphi [-]
 function StrIPToHexIP(IpStr:string) : string;
   function HexIPToStrIp(IpStr:string) : string;
implementation
 
function StrIPToHexIP(IpStr:string) : string;
var
    ConvertingLoop : longint;
    SplitIp : array of string;
begin 
   SplitIp := Split( IpStr , '.' ); 
   for ConvertingLoop := 0  to UBound( SplitIp )  do begin 
      StrIPToHexIP := StrIPToHexIP+chr( SplitIp[ConvertingLoop] ); 
   end; 
end; 
 
function HexIPToStrIp(IpStr:string) : string;
var
    ConvertingLoop : longint;
begin 
   for ConvertingLoop := 1  to 4  do begin 
      HexIPToStrIp := HexIPToStrIp+CStr( ord( copy( IpStr , ConvertingLoop , 1 ) ) )+'.'; 
   end; 
   HexIPToStrIp := left( HexIPToStrIp , length( HexIPToStrIp )-1 ); 
end;

Saludos