Dann mach ich hier mal weiter mit konstruktiver Kritik:
* man müsste versuchen, alle Aufrufe von ShowMessage() in
Unit Spline komplett zu eliminieren.
Statt ShowMessage() sollte man bei
Fehlern eine
Exception schmeisen:
Delphi-Quellcode:
function MakeSpline(Flag, n: integer;
var P:
array of TP; c0, cn: extended;
var K:
array of TK):boolean;
...
begin
...
if K[i].c<=0
then begin
raise EMath.Create('
Stützstellen nicht aufsteigend geordnet');
// für die Exception-Klasse EMath müsste man die Unit Math einbinden
Dann zu den Funktionen
Spl() und Co.:
Muss man wirklich das Intervall
n als Parameter übergeben?
Ich denke es wäre günstig, wenn die Funktionen selbst das Interval anhand von
x bestimmen.
Und da die Sützpunkte aufsteigend nach x sortiert sind, sollte hier eine Binärsuche sehr schnell das richtige Interval finden.
Und noch etwas zum Dateianhang:
Also ich habe bei selbstenpackenden Exedateien immer etwas Bauchweh, weil damit (und sei es unabsichtlich) ein Virus gestartet werden könnte.
Eine ZIP-Datei wäre da sicherer und kompakter.
Und von einem Delphiprogrammierer kann man sicher erwarten, dass er einen ZIP-Entpacker am Start hat.