Zitat von
Sprint:
Eine andere Möglichkeit um auf die Compiler Direktive WRITEABLECONST ($J) zu verzichten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
Counter: Integer = 0;
begin
Inc(PInteger(@Counter)^);
Caption := IntToStr(Counter);
end;
Eine schlechte Idee schlägt die nächste
sniper_w: dein Quellcode macht Probleme wenn 'restore_me' vorher bereits definiert wurde...