was ich gerade nicht verstehe ist, dass mein ShellSort nicht funktioniert obwohl ich es genau nach beispiel erstellt habe....
Delphi-Quellcode:
procedure TForm1.ShellSort(
var A:
array of String);
var
i, j, k, B: Integer;
lBuffer:
String;
begin
B := high(A);
i := Length(A)
div 2;
While i > 0
do
begin
for k := 0
to B -i
do
begin
j := k;
while (j >= 0)
and (A[j] > A[j +i])
do
begin
lBuffer := A[j];
A[j] := A[j +i];
A[j +i] := lBuffer;
end;
begin
if j > i
then
begin
Dec(j, i)
end else
j := 0;
end;
end;
begin
i := i
div 2;
Break;
end;
end;
end;
also er öfnnet es zwar, ich kann auch was in das memo reinschreiben aber er sortiert einfach nicht.
und er muss sich ja das zu sortierende noch aus dem Memo holen.... aber ich weiß nicht wie ichs einbauen soll