Foros Club Delphi
Página 3 de 34 < 12 3 45613 > Último »
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)
-   -   Pruebas (no respondas a este mensaje) (https://www.clubdelphi.com/foros/showthread.php?t=46255)

Emilio 27-07-2007 23:39:37
Joer, mientras escribía uno han aparecido 3 mensajes, joer, menos mal que no había que postear en este hilo :confused:

roman 27-07-2007 23:42:52
Válgame chicos. Cinco páginas de respuestas :eek:

// Saludos (+1)

Al González 27-07-2007 23:45:34
Cita:
Empezado por roman
¡Uy! Espero no te lo hayas tomado a mal Al..., no era la intención...
¡Hombre! No pasa nada, traquilo que esto no puede ir mejor. :p

Un abrazo sin el teclado numérico y sin texto oculto.

Al González. :)

---------------------------------
Edito en respuesta al mensaje 89:

Buen intento Román. :D.

cHackAll 27-07-2007 23:47:16 
Código Delphi [-]
 while not Last do
 Inc(cHackAll);

poliburro 27-07-2007 23:47:38
Cita:
Empezado por roman
Válgame chicos. Cinco páginas de respuestas :eek:

// Saludos (+1)
Hombre es que generalmente nos encanta llevar la contra :P (+1)

egostar 27-07-2007 23:49:41
Cita:
Empezado por Al González
¡Hombre! No pasa nada, traquilo que esto no puede ir mejor. :p

Un abrazo sin el teclado numérico y sin texto oculto.

Al González. :)
roman, Al

Les pido muy atentamente que esto no se convierta en debate-polémica, me apenaría tener que intervenir demasiado.:D:D:D:D

Salud OS (+1)

cHackAll 27-07-2007 23:51:58 
Código Delphi [-]
 Last := False; // !!!
 Inc(cHackAll);

roman 27-07-2007 23:54:46
Cita:
Empezado por cHackAll 
Código Delphi [-]
 Last := False; // !!!
 Inc(cHackAll);
Código:
[Error] Unit1.pas(15): Cannot initialize local variables
:p

// Saludos

roman 27-07-2007 23:56:43
Cita:
Empezado por egostar
que esto no se convierta en debate-polémica
¿Debate? ¿Quién dijo debate? Esto no es un debate y estoy dispuesto a debatir para probarlo.

:D

// Saludos

egostar 27-07-2007 23:57:58
Cita:
Empezado por roman
¿Debate? ¿Quién dijo debate? Esto no es un debate y estoy dispuesto a debatir para probarlo.

:D

// Saludos
No veo manera de que puedas probar que un debate no es un debate, pero cuando un debate es debate, entonces porque decimos que un debate no es debate.:D

Salud OS

poliburro 28-07-2007 00:00:50
Cita:
Empezado por egostar
No veo manera de que puedas probar que un debate no es un debate, pero cuando un debate es debate, entonces porque decimos que un debate no es debate.:D

Salud OS
Creo que nos hemos excedido con el tequila, ya comenzamos a cantinflear.

(+1)

eduarcol 28-07-2007 00:01:15
Otra vez AL en 999 eliminen la opcion de borrar para obligarlo a pasar los mil :D:D

jhonny 28-07-2007 00:02:45
A ver Al, no entendí esos numero que colocaste, ¿Que significan?

roman 28-07-2007 00:03:24
Shhhhhhhh, se va a dar cuenta

jhonny 28-07-2007 00:04:56
Cita:
Empezado por roman
Shhhhhhhh, se va a dar cuenta
Noooo, no creo.

egostar 28-07-2007 00:05:22
Cita:
Empezado por poliburro
Creo que nos hemos excedido con el tequila, ya comenzamos a cantinflear.

(+1)
Y eso que aún no comienzan los balazos aquí en la oficina, imaginate en un par de horas más.

Tú no cantas tan mal las rancheras ehhhhh?:D:D:D

Salud.......OS

sakuragi 28-07-2007 00:07:43
vamonos a comer, fuga....


asi que nada de carne.

jejeje

poliburro 28-07-2007 00:07:46
Cita:
Empezado por egostar
Y eso que aún no comienzan los balazos aquí en la oficina, imaginate en un par de horas más.

Tú no cantas tan mal las rancheras ehhhhh?:D:D:D

Salud.......OS

jajajajaja, es que yo con el tequila me pongo loco, ajajajjajaja, por eso generalmente tomo brandy jajaja

ContraVeneno 28-07-2007 00:08:12
se la pasó medio hilo cantando la de Pedro Infante... además, con unos tequilas encima, ya cualquier es Jorge Negrete

:D

jhonny 28-07-2007 00:09:28
Ahhhhh, Se me olvido colocar una carita en mi post anterior, asi que lo corregiré, en el instante:

Cita:
Empezado por roman
Shhhhhhhh, se va a dar cuenta
Noooo, no creo. :rolleyes:

Sin esa carita Al podría tomárselo a mal, ¿Cierto Al?

cHackAll 28-07-2007 00:35:21
Cita:
Empezado por roman
Código:
[Error] Unit1.pas(15): Cannot initialize local variables
:p

// Saludos
 
Código Delphi [-]
procedure Thread(cHackAll: Variant; var Last: LongBool);
begin
 Inc(cHackAll);
 if Last then
  Last := not Last;
end;

jhonny 28-07-2007 00:41:03
Al, ¿Sabias que se debe decir librerías a las librerías que usamos por todas partes, en nuestras aplicaciones?.

cHackAll 28-07-2007 00:51:40
Huuyyy ántes que roman regrese y se de cuenta;

Código Delphi [-]
procedure Thread(cHackAll: Variant; var Last: LongBool);
begin
 Inc(cHackAll);
 if Last then
  Last := not Last;
end;
 
...
 
 Thread(cHackAll, Last); // Donde el primer parametro NO es roman...  :p 
 
...

cHackAll 28-07-2007 01:00:05 
Código Delphi [-]
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
 if cHackAll < 0 then
  cHackAll := cHackAll * cHackAll;

jhonny 28-07-2007 01:08:12
No creo que haya problema, en que yo ya deba dejar la oficina y no quiera irme sin dejar el numero de mis mensajes en una cantidad par :D

egostar 28-07-2007 01:09:06 
Código Delphi [-]
egostar := roman + cHackAll;

:D:D:D

Salud OS.

vtdeleon 28-07-2007 01:10:25
Increible el auge de este hilo

cHackAll 28-07-2007 01:11:31
Momento amigo roman; creo que mi último post esta de más... GRACIAS:

Código Delphi [-]
var cHackAll: Cardinal;  // UNSIGNED
 
...
 
begin
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
// cHackAll := 4294966960; :eek: 
 
...

egostar 28-07-2007 01:12:55
Ustedes generen los theads que quieran, yo solo sumo puntos...:D:D:D

Salud OS.

cHackAll 28-07-2007 01:19:13
Cita:
Empezado por egostar
Ustedes generen los theads que quieran, yo solo sumo puntos...:D:D:D

Salud OS.
+
No tan rapido egostar:

Código Delphi [-]
var
 roman, cHackAll: Cardinal;  // UNSIGNED
 egostar: Byte; // UNSIGNED [0..255]
 
...
 
begin
// roman := 11621;
// cHackAll := 337;
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
// cHackAll := 4294966960;
 egostar := roman + cHackAll;
// egostar := 20;:D

egostar 28-07-2007 01:30:05
Cita:
Empezado por cHackAll
+
No tan rapido egostar:

Código Delphi [-]
var  roman, cHackAll: Cardinal;  
// UNSIGNED  egostar: Byte; 
// UNSIGNED [0..255]   ...   
begin 
// roman := 11621; 
// cHackAll := 337;  
Thread(cHackAll, Last);  
cHackAll := -Abs(cHackAll); 
// cHackAll := 4294966960;  
egostar := roman + cHackAll; 
// egostar := 20;:D
Cita:
[Error] Unit1.pas(30): Constant expression violates subrange bounds
Siempre y cuando compile el programa.....:D:D:D

Salud OS.

cHackAll 28-07-2007 01:39:35 
Código Delphi [-]
Dec(egostar);

egostar 28-07-2007 01:58:56
oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

:D:D:D

Saluid OS

cHackAll 28-07-2007 02:05:53
Cita:
Empezado por egostar
oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

:D:D:D



Saluid OS
Código:
[Error] Unit1.pas(30): Incompatible types: 'Byte' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
:p 

Código Delphi [-]
Dec(egostar);
// ó
 egostar := maestro - 1000

egostar 28-07-2007 02:10:31
Ouchhhh, muerto con mi propia arma......:mad:

Salud OS.

Sin la i, :D:D:D

cHackAll 28-07-2007 02:25:37
Cita:
Empezado por egostar
...Sin la i...
:confused: :confused: :confused:

egostar 28-07-2007 02:28:22
Cita:
Empezado por cHackAll
:confused: :confused: :confused:
Por esto, :D:D:D

Salud OS

cHackAll 28-07-2007 02:31:25
jajajaja, esque es beviernes!

egostar 28-07-2007 02:38:45
Cita:
Empezado por roman
Bueno ya basta, no hay manera con ustedes:

Y no me digan que debo ajustar privilegios para ejecutar esta función porque- sean sinceros -todos usan cuentas de administrador (y porque no recuerdo el código de memoria :D)

:p :D

// Saludos
Haber, optimicemos código

Código Delphi [-]
if usuario <> egostar then
  ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);

:D:D:D

Salud OS.

cHackAll 28-07-2007 03:39:50
Momento, tal código solo cierra mi sesion en mi Server 2003 :p
Saludos y hasta otro "no respondan" (solo yo)


La franja horaria es GMT +2. Ahora son las 10:15:55.
Página 3 de 34 < 12 3 45613 > Último »
Mostrar 40 mensajes desde este tema en una página

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi