[jhonny]

Bueno, amigos, muchisimas gracias por sus felicitaciones, como diríamos por acá, son todos una berraquera¡¡¡
ContraVeneno
Pues vaya, muchas gracias por comenzar este hilo amigo ContraVeneno.

roman
Pues gracias, amigo. Agarrate porque ya casi te alcanzo .

dec
Pues mas del doble pa ti .

Caral
Gracias Caral, pero acuerdate que maestro es el burro, Y Vaya¡¡¡ maestro amigo.

Caro
Gracias Caro, ahhh, se me había olvidado... que bueno que subiste tu foto en el hilo de las fotos .

Héctor Randolph
Gracias Héctor, ¿Siempre de buen humor? , Que bueno que se persiva eso, aunque a veces la cosa se pone complicada

gluglu
Pos gracias amigo, te confieso que me tiene muy curioso eso de los cientos de componentes en una forma y que además en ellos arrastras una fila de un DBGrid... Eso tengo que verlo.

Onti
Gracias Onti, que bueno que ya estas bien de salud y que incluso ya puedas echarte una pasadita para escribir este POST , Ahhh, cantarrrrr "Disfruta un nuevo cielo, pararara parara, Que romántica luna... Que todo, que todo, que todo que...".

egostar
Gracias amigo egostar, si no fuera por tus "Atrevimientos" seguramente yo no tendría 2.000 mensajes

seoane
Caramba¡¡¡, me ha sorprendido el asunto, interesante el hecho de que armaras esa palabra con muñequito y todo, aunque la verdad es que para que me dieran las dos mil exactas tuve que coger el comentario, donde dices:

Podéis contarlas, son 2000 "X"

Ya que siempre me daban 1999 .

Lo que hice para contarla fue copiar todo, pegarlo en un TMemo, he hice lo siguiente:

Código Delphi [-]
var
  i, j, Cantidad :Integer;
begin
  Cantidad := 0;
  for i := 0 to Memo1.Lines.Count -1 do
  begin
    for j := 0 to Length(Memo1.Lines[i]) -1 do
    begin
      if Memo1.Lines[i][j] = 'X' then
      begin
        Inc(Cantidad);
      end;
    end;
  end;
  ShowMessage(IntToStr(Cantidad));
end;

Bueno, muchachos, muchas gracias por sus felicitaciones.