Delphi-Quellcode:
For i:=2 to anz do
StringGrid1.Cells[i,0]:=IntToStr(i);
zahl[i]:=zahl[i-1]+zahl[i-2];
StringGrid1.Cells[i,1]:=IntToStr(zahl[i]);
Schleife wird nur für StringGrid1.Cells[i,0]:=IntToStr(i); durchlaufen. Danach hat i den Wert anz+1 (Abbruchbedingung). Zahl[anz+1] erzeugt dann einen Fehler. Probiers mal mit
Delphi-Quellcode:
For i:=2 to anz do
begin
StringGrid1.Cells[i,0]:=IntToStr(i);
zahl[i]:=zahl[i-1]+zahl[i-2];
StringGrid1.Cells[i,1]:=IntToStr(zahl[i]);
end;