29 respuestas en este tema

[Jagluiperd]

Hola.

Gracias escafandra.

Añado:

Por si alguien necesita escribir código que no sea dependiente del S.O,
os dejo estas funciones para que no os de problemas con el código propuesto por
escafandra:

delphi

Function IsCharAlpha(Const Caracter: Char): Boolean;
Begin
  {No tiene en cuenta caráteres especiales ni números, solo letras}
  Result:=(Caracter IN['A'..'Z','a'..'z']);
End; 
 
Function IsCharAlphaNumeric(Const Caracter: Char): Boolean;
Begin
  {No tiene en cuenta caráteres especiales, solo letras y números}
  Result:=(Caracter IN['A'..'Z','a'..'z','0'..'9']);
End; 

Insertar las lineas de código tras la clausula "Implementation".

Si se emplea el código de escafandra con estas funciones que propongo,
se puede implementar en Lazarus, tanto para Ms Windos como para Linux.

Saludos.

[escafandra]

...el punto es que la mayoría de las veces me cuesta trabajo entender el código ...

Bueno para eso tienes una fácil solución, escribirlo. Sólo llegas a entenderlo realmente y en profundidad cuando lo puedes escribir con soltura. En ocasiones puede parecer que se entiende hasta que tenemos que hacerlo... Eso es debido a la parte críptica del asunto y lo rico de su sintaxis. Por eso pienso que la única forma es escribir y experimentar distintas formas de sintaxis.

Saludos.

[escafandra]

Por si alguien necesita escribir código que no sea dependiente del S.O,
os dejo estas funciones para que no os de problemas con el código propuesto por
escafandra:

delphi

Function IsCharAlpha(Const Caracter: Char): Boolean;
Begin
  {No tiene en cuenta caráteres especiales ni números, solo letras}
  Result:=(Caracter IN['A'..'Z','a'..'z']);
End; 
 
Function IsCharAlphaNumeric(Const Caracter: Char): Boolean;
Begin
  {No tiene en cuenta caráteres especiales, solo letras y números}
  Result:=(Caracter IN['A'..'Z','a'..'z','0'..'9']);
End; 

Bueno, aquí tenemos otra de las ventajas de C/C++. En realidad esas funciones están en la librería del ANSI C como isalpha y isalnum, de modo que el código, usando esas funciones, es portable tal cual.

La API de Windows las incorpora en ntdll.dll con los mismos nombres. En la librería User32.dll incorpora las versiones que yo he propuesto usar.

Si tenéis curiosidad, podeis explorar las librerías de Windows y de su mismo Kernel con la aplicación que desarrolle y que publiqué en el foro: IEDataVisor (aunque no ha sido muy aceptada o comprendida... ). A mi me es muy útil cuando deseo explorar los entresijos de Windows.


Saludos.

[Jagluiperd]

Bueno, aquí tenemos otra de las ventajas de C/C++. En realidad esas funciones están en la librería del ANSI C como isalpha y isalnum, de modo que el código, usando esas funciones, es portable tal cual.

Redondo y Perfecto.

Un saludo.

[egostar]

Yo sigo aprendiendo algo todos los días

Salud OS

[escafandra]

Optimizando código en C/C++:
 

cpp

int ContarPalabras(char* S)
{
  int Result = 0;
  char *c;
  for(c = S; *c;)
    if(IsCharAlpha(*c++) && *c == ' ') Result++;
  if(IsCharAlpha(*--c)) Result++;
  return Result;
}

Usando punteros en delphi:

delphi

function ContarPalabras(const S: string): integer;
var
  c: PCHAR;
begin
  Result:= 0;
  c:= PCHAR(S);
  repeat
    if IsCharAlpha(c^) and ((c+1)^ = ' ') then inc(Result);
    inc(c);
  until (c^ = #0);
  if IsCharAlpha((c-1)^) then inc(Result);
end;

En ensamblador para delphi:

delphi

function _ContarPalabras(Cadena: PCHAR): integer;
begin
  Result:= 0;
  asm
    mov esi, Cadena
 
@loop_scan_cadena:
    push [esi]
    call IsCharAlphaA        // Call IsCharAlpha
    inc  esi
    cmp  eax, 1
    jne  @continue_loop_scan_cadena
    mov  ax, word ptr [esi]
    cmp  al, 20h            // ¿Es un espacio? ' '
    jne  @continue_loop_scan_cadena
    inc  Result;            // Palabra encontrada
@continue_loop_scan_cadena:
    mov  ax, word ptr [esi]
    cmp  al, 0              // ¿Fin de la cadena?
    jne  @loop_scan_cadena
 
    dec  esi;
    push [esi]
    call IsCharAlphaA      // Call IsCharAlpha
    cmp  eax, 1
    jne  @Fin_ContarPalabras
    inc  Result;            // Ultima palabra encontrada;
 
@Fin_ContarPalabras:
  end;
end;

Si los números cuentan se sustituye IsCharAlpha por IsCharAlphaNumeric

Saludos.         

[egostar]

Ah vaya, ahora hasta en asm , habrá que poner el Prefijo [MULTILENGUAJE]

Salud OS

[Khronos]

Gran trabajo escafandra, eres una máquina!

Saludos.

[juan1987]

Hola escafandra. ¿Está bien ese código? Porque quise implementarlo y no funciona. ¿Puede ser por la versión?
Muchas gracias.

[escafandra]

Hola escafandra. ¿Está bien ese código? Porque quise implementarlo y no funciona. ¿Puede ser por la versión?
Muchas gracias.

Hola, juan1987 Bienvenido a delphiaccess.

El código mostrado esta probado. No se exactamente a qué código te refieres. Supongo que al que viene en este mensaje, pero ¿la versión C, delphi o asm?.

Si usas una versión de compilador que use unicode, no funcionará, no esta diseñado para eso. Fíjate que el parámetro de entreda es un puntero a CHAR y no a WCHAR. La versión delphi con punteros asume también que con CHAR. Puedes adaptarlo a unicode o pasar las cadenas unicode a clásicas con esto, si te gusta el bajo nivel:
 

cpp

// Convierte cadenas Unicode a clásicas
char* WideCharToChar(const wchar_t* Entrada, char* Salida, unsigned int Size=-1)
{
  if(Entrada){
    int size = Size;
    if(Size==-1) size = wcslen(Entrada)+1;
    WideCharToMultiByte(CP_ACP, 0, Entrada, -1, Salida, size, NULL, NULL);
    return Salida;
  }
  else return 0; 
}

Saludos.