Handling von Fehlern, Warnungen und Hints

[DeddyH]

Entweder definieren wir "global" unterschiedlich, oder Du irrst.

Delphi-Quellcode:

{$WARNINGS OFF}
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to 5 do;
  ShowMessage(inttostr(i)); //hier kommt keine Warnung
end;
{$WARNINGS ON}

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 1 to 5 do;
  ShowMessage(inttostr(i)); //hier kommt eine Warnung
end;