Hallo zusammen,
hat jemand dafür eine Erklärung?
Folgende Codespielerei lässt sich problemlos unter D2009 kompilieren und starten.
Genau der gleiche Code unter XE3 lässt mein Kaspersky ausrasten, der daraufhin die Datei löscht, siehe Bildanhang!
Wenn in der for-Schleife die Ausgabe auskommentiert wird, dann funktioniert es aber!?!
Delphi-Quellcode:
procedure TForm14.Memo1Click(Sender: TObject);
var
i, n : Integer;
begin
i := 0;
n := 1000;
Memo1.Lines.Add('while-Schleife');
Memo1.Lines.Add('i: ' + IntToStr(i) + ' n: ' + IntToStr(n));
while i < n do
begin
n := n div 2;
i := i + 1;
Memo1.Lines.Add('i: ' + IntToStr(i) + ' n: ' + IntToStr(n));
end;
i := 0;
n := 1000;
Memo1.Lines.Add('for-Schleife');
Memo1.Lines.Add('i: ' + IntToStr(i) + ' n: ' + IntToStr(n));
for I := 0 to n do
begin
n := n div 2;
//wenn man folgende Zeile auskommentiert gehts???
Memo1.Lines.Add('i: ' + IntToStr(i) + ' n: ' + IntToStr(n));
if i >= n then
break;
end;
end;