Problemas en funcion

[KroSaver]

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:

function EncontrarCadena(Cadena: array [0..MAX_PATH] of char): Boolean;

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

gracias de antemano y saludos

[[maeyanes]]

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

[[Al González]]

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

[[Chris]]

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!

[dec]

Empezado por Chris

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;

[roman]

Empezado por dec

Código Delphi [-]
  result := false;

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

// Saludos

[KroSaver]

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:

#include <stdio.h>
#include <windows.h>

bool EncontrarCadena(char *Cadena1, char *Cadena2)
{
    
    char *cadena1=(char*)malloc(strlen(Cadena1));        memset(cadena1,0,strlen(Cadena1));        strcat(cadena1,Cadena1);
    char *cadena2=(char*)malloc(strlen(Cadena2));        memset(cadena2,0,strlen(Cadena2));        strcat(cadena2,Cadena2);

    if(strlen(Cadena1) < strlen(Cadena2)){return false;} //como la cadena2 es mayor que la cadena1 es imposible que la cadena 1 contenga a la cadena2
    int c=0;
    int i=0;
    bool validate=false;
    
    //Convertimos a minusculas
    for(c=0;cadena1[c]!='\0';c++)
    {
        if((cadena1[c]>=65)&&(cadena1[c]<=90)){cadena1[c]+=32;}
    }
    
    for(c=0;cadena2[c]!='\0';c++)
    {
        if((cadena2[c]>=65)&&(cadena2[c]<=90)){cadena2[c]+=32;}
    }
    

    
    while(cadena1[c]!='\0')  // hacemos el recorrido sobre toda la cadena1 para buscar que contiene la cadena2
    {
        if(cadena1[c]==cadena2[0]) //si el caracter comparado es igual al primer caracter de cadena2 buscamos el resto de caracteres 
        {
            i=1; //como ya el primer caracter es igual pasamos al segundo caracter que esta en la posicion 1
            while(Cadena2[i]!='\0') //Buscamos el resto de caracteres
            {
                if(cadena1[c+i]!=cadena2[i]){break;} //si son diferentes los caracteres salimos
                i++;            
            }

            if(cadena2[i]=='\0'){return true;}    
        }

    c++;
    }
    return false;
    
}

int main(int argc, char *argv[]) {
    
    char *Cadena1 = "asdjaksxnkasjLoldsfhsdncmsd";
    char *Cadena2 = "loL";
    
    if(EncontrarCadena(Cadena1,Cadena2)==true)
    {
        printf("Cadena encontrada!\n");
    }
    else
    {
        printf("Cadena no encontrada!\n");
    }
    system("PAUSE");
    return 0;
}

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

[[maeyanes]]

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

[KroSaver]

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

[ecfisa]

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

#include <ctype>
#include <iostream>

int EncontrarCadena(std::string sub, std::string cad)
{
  for(int i=0;cad[i];i++) cad[i] = tolower(cad[i]);
  for(int i=0;sub[i];i++) sub[i] = tolower(sub[i]);
  return cad.find(sub);
}

Equivalente C:

#include <string.h>
int EncontrarCadena(char *sub, char *cad)
{
  char *d;
  int i;
  for(i=0;cad[i];i++) cad[i] = tolower(cad[i]);
  for(i=0;sub[i];i++) sub[i] = tolower(sub[i]);
  d = strstr(cad, sub);
  if (d) return  d - cad; // Posición de cadena hallada
  return -1;
}

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.

[KroSaver]

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

[[Al González]]

Empezado por roman

Siendo Result una variable boolean, se inicializa a false automáticamente

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!

[roman]

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?

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

// Saludos

[[Al González]]

Empezado por roman

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?

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.

[roman]

Empezado por Al González

pero si al menos de incentivo científico puede servir el código anterior...

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

// Saludos

[ecfisa]

Empezado por KroSaver

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

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

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.

[KroSaver]

Empezado por ecfisa

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

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!

[dec]

Empezado por roman

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

// Saludos

Conviene dejar las cosas claras.

[Casimiro Notevi]

Empezado por KroSaver

El caso es que yo intento programar y aprender a programar...

Empezado por KroSaver

Estoy totalmente deacuerdo contigo pero es eso que cada uno pensamos de una manera...

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

.

[KroSaver]

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:

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

saludos, sigo con esa duda