Problemas en funcion
 

Buenas de nuevo a todos, segunda duda por dia espero no molestar

Bueno estoy intentando pasar una funcion que hice en c++ de encontrar determinada palabra en un texto a delphi pero tengo un error muy tonto y es que no me permite hacer esto:

Osea darle directamente MAX_PATH al declarar la funcion, ¿como podria asignarselo dentro de la funcion?

gracias de antemano y saludos

Hola...

En Delphi podrías usar el tipo string sin problemas:

Código Delphi [-]
function EncontrarCadena(Cadena: string): Boolean;
begin
  // Código de la función
end;

Ahora, no veo el por que crear una función si el mismo Delphi ya cuenta con funciones que te pueden ayudar para lo mismo:

Código Delphi [-]
if Pos('Subcadena', 'Esta función busca una subcadena en una cadena') > 0 then
  ShowMessage('Subcadena encontrada');

Saludos...

¿Podrías poner el código C++ original? :)

La sintaxis que estás utilizando "Cadena: array [0..MAX_PATH] of char" es para declarar una variable, no el parámetro de una función. En este momento no recuerdo exactamente como se definen los parámetros array en Delphi. Talvez un compañero lo pueda aclarar.

Saludos!

Sería algo más o menos como esto:

Código Delphi [-]
type
  TArrayOfChar = array [ 0 .. MAX_PATH ] of Char;

{...}

function FindString( source : TArrayOfChar ) : boolean;
begin
  result := false;
  // TODO
  raise Exception.Create( 'Function "FindString()" not yet implemented' );
end;

Me parece que esto es redundante. Siendo Result una variable boolean, se inicializa a false automáticamente :p :D

// Saludos

Bueno esque usar funciones propias no me mola las prefiero hacer yo y meter cuanta menos basura posible en el exe final.

el codigo de la funcion en c++ la hicimos con mi compañero TR31N0RD:
Prove lo que respondio dec pero da error en esa linea del type que la verdad en delphi algunos errores no loes explica el compilador.

gracias y saludos

Hola...

No veo por que sea meter basura al exe el usar una función incluida en el mismo lenguaje sobre el cual estás desarrollando.


Saludos...

Bueno cada uno lo ve a su manera no?

Yo solo pregunte como hacer eso que tiene que ser lo mas simple pero que no me sale cada uno escrivimos aplicaciones como queremos.

saludos

Hola KroSaver.

Creo que la forma mas simple es la que te sugiere maeyanes en el segundo mensaje.

Ejemplo Delphi:

Código Delphi [-]
function EncontrarCadena(cad, sub: string): Integer;
begin
  cad:= LowerCase(cad);
  sub:= LowerCase(sub);
  Result:= Pos(sub, cad);
end;

Equivalente C++:
Equivalente C:
Con la salvedad que en C/C++ se referencia al primer caracter por el índice 0 (en Delphi es 1), por lo que las funciones devolverán el valor de la posición disminuido en uno.

Saludos.

Si bueno pero si te fijas metes string.h y no ablemos de iostream porque esa libreria sique te agrega basura si compilas en Dev c++ una aplicacion de consola nada mas que tenga iostream y el peso del exe es exagerado pero a lo bestia.

El caso es que yo intento programar y aprender a programar asi porque asi me libero de codigo basura y las aplicaciones irian mas fluidas, rapidas y claro esta sin ensuciar la memoria que es algo a mi parecer que hoy en dia casi nadie intenta optimizar imaginad una aplicacion de dimensiones mucho mayores que necesitaria memoria y encima meteriamos basura.

He que con esto no intento influir mi opinion es eso solo mi opinion.

gracias y saludos

Eso no es verdad, Román. Así sería si se tratara de un campo en una clase, pero, como seguramente recordarás, las variables que no usan contadores de referencias (aun siendo Result) no se inicializan en automático y pueden traer cualquier cosa de inicio.

Por cierto, a mí y a muchos otros nos alegra verte de nuevo en la palestra. :)

¡Un abrazo!

Bueno, no tenía (ni tengo :() delphi a mano. Pero mi aseveración la basé en el hecho de que el compilador no protesta ni advierte cuando una función de resultado entero no devuelve un valor, mientras que sí lo hace, por ejemplo, con funciones que devuelven cadenas de caracteres.

¿O es alrevés? :o

En fin, de todas maneras, admito que mi argumento no es muy cinetífico que digamos :)

// Saludos

Sí, es al revés. Ya que las cadenas de caracteres sí usan contadores de referencias. :)

Aunque, tratándose de la variable Result, en lugar de inicializarse el String como cadena vacía, entra a la función como si fuera un parámetro:

Código Delphi [-]
Function F :String;
Begin
  ShowMessage (Result);
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  S :String;
begin
  S := 'Las bibliotecas de programación son de gran ayuda.';
  S := F;
end;

No se me ocurre una forma de ayudarte a solucionar lo que pasa actualmente con tu instalación de Delphi, pero si al menos de incentivo científico puede servir el código anterior... ;)

Mucha suerte Román. :)

Ja, ja. Sí claro, pero sólo como algo meramente teórico, ¡vaya! un ejercicio mental, porque sin delphi no es mucho lo que puedo investigar :D

// Saludos

Hola KroSaver.

No estoy de acuerdo con que el utilizar bibliotecas sea incluir basura. Con dicos rígidos de 1TB y 4, 8, 16 Gb de RAM corriendo en varios núcleos a velocidades que meten miedo, hoy por hoy (y tenes razón) espacio y velocidad no son aspectos que preocupen a muchos. Ni comparar cuando en asm mezquinabamos bits de nuestros 64Kb para el Z-80, TSM9900, VIC-V20,... y funcionando de 1 a 3 Mhz!!!... :rolleyes:

Mi experiencia dice que en el reemplazo por rutinas propia la ganancia de velocidad será: La mayoría de las veces ninguna, muy pocas veces será nula y en contados casos alguna. (No vamos a creer que los que diseñan las bibliotecas son flojos de entendederas... :))

Si tus metas son la velocidad y tamaño, te recomendaría usar C, Pascal o Assembler (ningún código será mas compacto, veloz y eficiente que el generado por un buén programador de assembler).

Delphi y Builder C++ generarán ejecutables más voluminosos pero superan con creces esos detalles con una drástica disminución del tiempo de desarrollo, gran facilidad de mantenimiento, sencillez en la conexión con bases de datos, etc, etc.

Lo anterior dicho desde la vereda profesional con las exigencias y presiones que eso supone, pero como nos comentas que estás aprendiendo, es excelente que te intereses por intentar comprender, reemplazar e incluso mejorar las funciones de biblioteca.
Es la actitud que hace falta, no me cabe duda que llegarás ser un buén programador en menos tiempo de lo que supones.

Saludos.

Estoy totalmente deacuerdo contigo pero es eso que cada uno pensamos de una manera, la verdad ahora mismo como tu as dicho preocupa poco el tamaño del ejecutable y su velocidad pero segun para que cosas.

Y bueno nada sigo con esa duda como ago para declarar una max_path char eso es lo unico que necesito porque lo que es la funcion de busqueda me la haria yo sin problema, es un problema bastante tonto pero nada no veo como declarar asi la char.

saludos y buena comunidad teneis la verdad!

Conviene dejar las cosas claras. :D

Hola, si intentas aprender a programar, entonces deberías de hacer caso a las personas que te están ayudando, todos ellos llevaban años programando antes de que tú nacieras :D, realmente, además de otros compañeros de clubdelphi, están en la lista (*) de los mejores programadores del mundo, no es broma.
Ellos dirán que no es cierto, por humildad, pero lo son.


(*) suponiendo que exista esa lista ;)

.

Casimiro tranqui tio que no digo que no sepais no seas ingnorante y lee bien lo que escribi tengo esa duda y yasta como digo en todos los mensages cada uno programa como quiere ok?

Asique si vas a decirme esas tonterias creo que te equivocastes de sitio.

Un moderador deveria de leer y no acomodar las frases de otro antes de contestar de esa manera:

saludos, sigo con esa duda