Un saludo para Jhonny

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

[[seoane]]

Empezado por Héctor Randolph

Lo que resulta me resulta algo misterioso es cómo hizo Domingo para que quedaran exactamente 2,000 caracteres

Caramba, le quitáis el misterio a todo Pues no conseguí aproximar hasta los 2000, solo conseguí hasta las 1960. El resto las añadí a mano

http://www.clubdelphi.com/foros/show...8&postcount=75

[[seoane]]

Código Delphi [-]
for j := 0 to Length(Memo1.Lines[i]) -1 do

Vaya, vaya, no me extraña que no te salieran las 2000

[jhonny]

Empezado por seoane

Código Delphi [-]
for j := 0 to Length(Memo1.Lines[i]) -1 do

Vaya, vaya, no me extraña que no te salieran las 2000

Una de dos, o no entiendo cual es el problema o no entiendo cual es el problema, si quito ese -1 me saldría un Acces Violation ya que la ultima posición no existiría, ¿O no?

[roman]

Tambien pueden contarse así:

Código Delphi [-]
NumX := Length(StringReplace(Memo1.Text, ' ', '', [rfReplaceAll])) - 2*Memo1.Lines.Count;

// Saludos

[thelibmx]

woww, lo que me sorprende es como de ser un hilo para felicitar a jhonny, aparecio el codigo de delphi... y aprendimos todos a contar jejeje... caracteres... Felicidades a jhonny

[jhonny]

Ok, ya se esta convirtiendo en algo típico que ponga un código y alguien salga con algo mejor , muchas gracias amigos, seoane como dice dec sos un monstro, en cuanto a lo del código de roman pues, sabia que tenia que haber algo mejor, pero esta pereza mental que lo agarra a uno cuando tiene consolidar un balance general y al final todo esta decuadrado por .01 centavos que uno no entiende de donde carajos aparecen , gracias thelibmx y BlueSteel.

[dec]

Hola,

Empezado por Seoane

Caramba, le quitáis el misterio a todo Pues no conseguí aproximar hasta los 2000, solo conseguí hasta las 1960. El resto las añadí a mano

Vaya, hombre, definitivamente hay días que no merece la pena levantarse. ¡Se me acaba de derrumbar un mito!

PD. Sigues siendo un monstruo Seoane.

[lucasarts_18]

Amigo jhonny,

Es un placer tenerte en este club.

Felicidades y que vengan muchos mas mensajes de calidad..........

Hasta Luego .-

[Casimiro Noteví]

Dsiculpas por el retraso, asuntos personales me tienen alejado de la rutina diaria.

Muchísimas FELICIDADES JHONNY

[[FGarcia]]

¡¡¡¡¡FELICIDADES JHONNY!!!!!

2000 mensajes; preocupate porque casi te alcanzo

[Neftali [Germán.Estévez]]

¡¡FELICIDADES!! por esos ..... 2008...
(...lo siento, llego tarde...)

[[ArdiIIa]]

Vaya, un poco tarde...

FELICIDADES.... por esos 1,31 mensajes por día

[[Bicho]]

Hola,

pues yo tambien llego tarde, pero es normal, a la velocidad que vas, no hay quien te pille JHONNY.
Parece ayer (y es que hace pocos meses) cuando celebrabamos tu entrada en el club de los milenarios y amenazabas con superarme.
De sobras hay que decir que lo cumpliste rápidamente.

Muchas felicidades amigo Jhonny.

Saludos

[jhonny]

Jo jo jo, muchas gracias compañeros, es todo un placer para mi, compartir estos mensajes con ustedes, ya que son personas geniales .

P.D: Casimiro, espero que pronto se solucionen dichos problemas personales.

[[eduarcol]]

Casi me pierdo la fiesta , pero es que no invitan...

jejejeeje

Felicidades amigo Jhonny un placer haber compartido hilos contigo

[[BlueSteel]]

Tambien, muchas... Felicidades Jhnny