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;
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;
[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
Dec(egostar); // ó egostar := maestro - 1000