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

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

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

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

[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]

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

[Casimiro Noteví]

Empezado por 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.
saludos, sigo con esa duda

Cierto, cada uno programa como quiere y sabe. Algunos bien y otros mal.
Por cierto, lo que dije antes no es ninguna tontería. Eres nuevo aquí y no puedes opinar correctamente sobre eso.

[KroSaver]

Como asi? no puedo opinar?

Aver no intento "INFLUIR MI OPINION ES SOLO MI OPINION" letras mayus por si te lo saltas y no lo lees.

1º ¿Cual es mi duda?

Como declaro la char con MAX_PATH al declarar la funcion.

2º ¿He pedido yo que me den uan funcion que me encuentre una cadena en texto?

No.

3º No quiero hacer de una duda una discusion encima con un moderador que no lee antes de escribir ¿Vale?

saludos y cerrad el tema porque creo que no se me entendio en mi duda dadlo por solucionado.

[Casimiro Noteví]

No te sulfures, amigo, creo que el que no ha leído bien has sido tú, yo no he dicho que no puedas opinar, por favor. Lo que he puesto ha sido: no puedes opinar correctamente, sobre si son buenos o malos programadores, porque no los conoces.

Tan sólo trataba de darte a entender que siguieras los consejos de personas que saben y tienen muchísima experiencia.
Pero si no te gusta, no hay problema, como bien dices tú: cada uno programa como quiere.

Desde luego que no voy a iniciar ninguna discusión, tengo otras cosas mejores que hacer, y tú también, seguro

[[movorack]]

Hola KroSaver,

Con todo respeto y también al igual que casimiro (Que en otras, tiene mas paciencia que muchos... por lo menos que yo) opino que debido a tu inexperiencia y desconocimiento. Estás intentando cosas que si escucharas a quienes te están prestando la ayuda, solventarías de una manera mas sencilla.

Y pues, como te dijeron ya. Delphi, te ofrece no solo un buen IDE, sino un framework (VCL) catalogado como uno de los mejores

Que si quieres puedes obviarlo y volver a pascal puro (puedes usar free pascal), pero si instalas Delphi es porque quieres usar las bondades del mismo, como son acceso rápido a datos, el diseño rápido de aplicaciones y la cantidad de funciones que vas a encontrar.

Mira, en DelphiBasics, puedes encontrar referencias y ejemplos de como usar muchísimas funciones de Delphi que te ayudarán a no reinventar la rueda.

Con respecto a tu duda, puedes declarar un arreglo dinámico como parámetro de una función

Código Delphi [-]
function EncontrarCadena(Cadena : array of char) : boolean
begin
end;

//Ejemplo de uso
if EncontrarCadena(['H','a','s','t','a',' ','l','a',' ','v','i','s','t','a',' ','b','a','b','y']) then
  ShowMessage('Terminator');