Forum: Tutorials und Kurse
Delphi
by Lee500,
29. Jun 2008
Hi,
@marabu ich habe ja bereits überall Length(Runs)-1 und das ganze so angepasst wie im Post von Daniel mit der TListBox. Von daher müsste es so funktionieren. Wenn ich das nicht berücksichtigt hätte, wäre im übrigen der erste Datensatz der, der nicht mitsortiert würde.
Hab das Problem jetzt behoben:
Procedure TForm1.ShellSort();
var i, j, h : Integer;
v: Trun;
Begin
h:= 1;
Forum: Tutorials und Kurse
Delphi
by Lee500,
29. Jun 2008
Das ist doch eine Frage zum Tut. Im Tut steht ja der ShellSort-Algorytmus, der den letzten Datensatz nicht berücksichtigt. So gesehen ist es eine Frage zum Tut.
Forum: Tutorials und Kurse
Delphi
by Lee500,
29. Jun 2008
Hiho,
Ich hab mich ma an den ShellSort algorythmus gewagt. Er sortiert jetzt wunderbar, bis auf den letzten Datensatz.
Procedure TForm1.ShellSort();
var i, j, h : Integer;
v: Trun;
Begin
h:= 1;
Repeat
h:= (3 * h) +1;