Foros Club Delphi
Página 6 de 67 « Primero < 345 6 7891656 > Ú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)

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 15:27:06.
Página 6 de 67 « Primero < 345 6 7891656 > Ú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