Foros Club Delphi - Feliz dia del Programador

Página 2 de 2

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- La Taberna (https://www.clubdelphi.com/foros/forumdisplay.php?f=40)

- - Feliz dia del Programador (https://www.clubdelphi.com/foros/showthread.php?t=48020)

Caral

13-09-2007 17:48:09

Hola
Me uno a la felicitación.
Que tengáis un buen día del programador.
Saludos

dec	13-09-2007 17:51:33

We are the champions,
We are the champions!
We are the champions!
We are the champions!!

PD. Congratulations a todos. :D

hecjona

13-09-2007 18:24:56

Tequila Para Todos

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija. :p

FGarcia

13-09-2007 18:27:34

Bueno que no sea por eso!!!

Faltaba mas!!!

¡¡¡FELICIDADES A TODOS LOS PROGRAMADORES!!!

CANTINERO!!!! ¡Tequila para todos!

Caro	13-09-2007 18:37:20

Que bueno que tengamos un dia especial, mil felicidas a todos incluyendome, y que la pasen super bien en nuestro dia.

Cita:

Empezado por Paoti (Mensaje 230750)

P.S. Ya es Jueves, fin de semana, que rico. Este fin si me voy a poner algo "pedo" ya lo necesito.

No sabia que esa palabrita también significaba lo que dijiste, ya me estaba imaginando otra cosa :D.

Muchas gracias por los chocolates hecjona y felicidades por el nacimiento de tu hijita.

Saluditos

poliburro

13-09-2007 18:40:15

Pues vayamos por el tequila y el brandy que es día de celebrar.

mmm, deberiamos considerar este día como celebración religiosa para que se nos de como día libre jejejejeje.

maeyanes

13-09-2007 19:23:04

Cita:

Empezado por hecjona (Mensaje 230794)

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija. :p

Felicidades por la nueva integrante en tu familia... :)

fer21unmsm

13-09-2007 19:49:30

felicidades!!!!!

También me uno a esta celebración por el día del programador, espero que la pasen bien.:)

saludos cordiales.

fer21unmsm

13-09-2007 19:51:13

Cita:

Empezado por hecjona (Mensaje 230794)

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija. :p

Tambien te envío mis felicitaciones por tu hijita recien nacida man:), en vez de chocolate nos comemos unos chicharrones de chancho, jeje:p

Delphius

13-09-2007 19:53:33

Cita:

Empezado por hecjona (Mensaje 230794)

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija. :p

¡Sip! Otra ronda más!¡Hip!
Felicidades por tu hija, por el maravilloso sentimiento de ser padre.

Saludos,

jhonny

13-09-2007 20:09:51

Cita:

Empezado por hecjona (Mensaje 230794)

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija. :p

Caramba¡¡¡, pues dobles felicidades hecjona :).

jandok238

13-09-2007 20:44:43

Pues aunque apenas ando iniciando en el FORO, mas no en el mundo de la programacion, me agrego a las FELICITACIONES.... Felicidades para todos...

Y hay que apoyar la idea de POLIBURRO

Cita:

Empezado por poliburro (Mensaje 230800)

mmm, deberiamos considerar este día como celebración religiosa para que se nos de como día libre jejejejeje.

:D:D:D

marceloalegre

13-09-2007 20:47:49

Cita:

Empezado por marcoszorrilla (Mensaje 230767)

Antes de que venga Seoane:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:LongInt;
begin
For n:=96 to 126 do
begin
Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
end;
end;

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do
begin
if Value and (1 shl i)<>0 then
Result:=Result+'1'
else
Result:=Result+'0';
end;
end;

Un Saludo.

Vamos a poner antes el intToBin asi le compila a todo el mundo, y de paso le hacemos un cambio para mejorarlo. (una linea de codigo menos jajajajaj)

Código Delphi [-]function IntToBin ( value: LongInt; digits: integer ): string;
begin
    result := StringOfChar ( '0', digits ) ;
    while value > 0 do begin
      if ( value and 1 ) = 1 then
        result [ digits ] := '1';
      dec ( digits ) ;
      value := value shr 1;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
n:LongInt;
begin
  For n:=96 to 126 do
  begin
  Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
  end;
end;

Jajaja y si,,, hay que festejar con codigo sin sentido!. Saludos.

BlueSteel

13-09-2007 21:19:53

se me habia pasado este hilo... todo por estar en curso...jaja

bueno.. me autofelicito.. e hago extensiva las felicitaciones para todos ...:D

eduarcol

13-09-2007 21:35:21

Felicidades a Hector por los mil, a hecjona por su hija y a todos nosotros por programar(vamos que no es tan faciil como parece, no programa entender a los usuarios es lo dificil)

Ñuño Martínez

14-09-2007 14:59:31

Os dejo solos un día y me montáis una bacanal de órdago, y encima no avisáis. Voy a aprovechar que hay dos invitadores, por el día y por nacimiento (hecjona, aprovecha que es pequeña que luego crecen ;)), y me voy a tomar algo.

[hics] Velididadessss a dodosssss... [/hics]

sakuragi

18-09-2007 06:39:35

VIVA!!:eek:!!!!!

La franja horaria es GMT +2. Ahora son las 15:40:39.

Página 2 de 2

Mostrar 40 mensajes desde este tema en una página