Pruebas (no respondas a este mensaje)

[[egostar]]

Ustedes generen los theads que quieran, yo solo sumo puntos...

Salud OS.

[[cHackAll]]

Empezado por egostar

Ustedes generen los theads que quieran, yo solo sumo puntos...

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;

[[egostar]]

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;

[Error] Unit1.pas(30): Constant expression violates subrange bounds

Siempre y cuando compile el programa.....

Salud OS.

[[cHackAll]]

Código Delphi [-]
Dec(egostar);

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

Saluid OS

[[cHackAll]]

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;

Saluid OS

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

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

[[egostar]]

Ouchhhh, muerto con mi propia arma......

Salud OS.

Sin la i,