Delphi-Quellcode:
for j:=anzahl downto 1 do
begin
for k:=1 to j do
begin
if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]);
end;
end;
auch auf die Gefahr hin das ich mich unbeliebt mache, aber
wenn k=1 ist
wird word2[0] mit word2[1] verglichen -> da kann nicht gescheites bei herauskommen da in word[0]
die Längeinformation des Strings steht.
Delphi-Quellcode:
for j:= 1 to anzahl -1 do
for k:=j+1 to anzahl do
if word2[k] > word2[j] then vertausche(word2[k],word2[j])
Hoffe hab' mich nicht zu sehr verhauen.
Grüße
Klaus