Sortieralgorithmen

[himitsu]

Zitat von Bjoerk:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
// i undefiniert, j nicht benutzt
// ShellSort erwartet als Paramter eine CharTable

procedure TForm1.ShellSort(CharTable: String);
// CharTable wid nicht benutzt
// k undefiniert, j auch
// j ist k, weshalb j deklariert
// was soll diese procedure eigentlich machen ?

Delphi-Quellcode:

CharTable: array[0..51] of Char =  // warum war das "of String", wo es doch nur einzelne Chars sind?
    ('A', 'a', 'B', 'b', 'C', 'c', 'D', 'd', 'E', 'e', 'F', 'f', 'G', 'g', 'H',
      'h','I', 'i', 'J', 'j', 'K', 'k', 'L', 'l', 'M', 'm', 'N', 'n', 'O', 'o',
      'P', 'p', 'Q', 'q', 'R', 'r', 'S', 's', 'T', 't', 'U', 'u', 'V', 'v',
      'W', 'w', 'X', 'x', 'Y', 'y', 'Z', 'z');
// oder doch als String
CharTable: String = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz';
// oder als echte Konstante
CharTable = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz';

Bei Letzerem muß natürlich die Länge geprüft werden, zu beginn der Prozedur, bevor man auf die einzelnen Zeichen zugreift.