Immer noch am sortieren, Kumpel?
Vielleicht bringt es dich weiter, wenn du siehst, was du programmiert hast:
Delphi-Quellcode:
var
i, j, k, B: Integer;
lBuffer:
String;
begin
B := high(A);
i := Length(A)
div 2;
While i > 0
do // Begin i
begin
for k := 0
to B -i
do // Begin K
begin
j := k;
while (j >= 0)
and (A[j] > A[j +i])
do // Begin J
begin
lBuffer := A[j];
A[j] := A[j +i];
A[j +i] := lBuffer;
end;
// Ende J
begin // Begin von Nix
if j > i
then
begin
Dec(j, i)
end
else
j := 0;
end;
// Ende von Nix
end;
// Ende von K
begin // Begin von Nix
i := i
div 2;
Break;
// Abbruch von I
end;
// Ende von Nix
end;
// Ende i
end;