Fibonacci-Folge - Programmieren...

[markus5766h]

Hallo,
...
und eigentlich müsstest Du hier noch eine Fehlermeldung bekommen :

Delphi-Quellcode:

begin 
Try zahl[0]:=StrToInt(Edit1.Text) Except exit end; 
Try zahl[1]:=StrToInt(Edit2.Text) Except exit end; 
Try anz:=StrToInt(Edit3.Text) Except exit end; 
SetLength(zahl,anz); 
...

in den Zeilen mit Try zahl[0] und Try zahl[1] greifst Du erst auf das dyn. array zu
und setzt aber erst nach Abfrage des Wertes in Edit3 die Länge !?