Un saludo para Jhonny

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

[delphi.com.ar]

Viendo como viene este hilo:

Código Delphi [-]
var
  i: Integer;
begin
  for i := 1 to 2000 do
    ShowMessage('Felicidades Jhonny!!');

  if StartTime > Now + 10 then
    ShowMessage('Disculpa el atraso!');
end;

[[BlueSteel]]

Tambien, muchas... Felicidades Jhnny