Gracias bro..con eso lo voy a mejorar el programa.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúByte CanPalabras(AnsiString x)
{Byte contador;
if (x.Length()< 2) {//Caso Base
contador= x.Length();
}else{//Caso General
char letra = x[x.Length()];
x.Delete(x.Length(),1);
char penul = x[x.Length()];
contador = CanPalabras(x);
if (letra != ' ' && penul == ' ') {
contador++;
}
}
return contador;
Byte CanPalabras(AnsiString x)
{Byte c;
if (x == "") {//Caso Base
c = 0;
}else{//Caso General
AnsiString letra = x[x.Length()];
x.Delete(x.Length(),1);
c = CanPalabras(x);
if (letra == " ") {
c++;
}
}
return c;
}
void Mayor_At_Last(Cardinal &x)
{byte s;
if(x<10){//Caso Base
s = x;
}else{//Caso General
s = x % 10;
x = x / 10;
Mayor_At_Last(x);//Mayor(358267)-> 8
if (s > x){//esta en si es la que alla el mayor
x = s;
}
}
}