doppelte Verneinungen gibts nur in der bayrischen Sprache
ansonsten:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if inter then //inter ist schon Boolean
begin
statt:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not inter = false then
begin
und bitte nicht auf true abfragen
statt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if inter = true then
begin
gleich so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if inter then
begin
Stimmt
hab ich gleich mal geändert Danke
aber leider funktioniert es immer noch nicht dafür habe ich einen verdächtigen und zwar avast den meine Delphi programme werden immer mal wieder von avast blockiert