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.

[DeddyH]

Das Length(Memo1.Text) verwirrt mich etwas. Müsste hier nicht die Zeilenanzahl stehen?

[himitsu]

ähhhh ... jupp

[biby90]

Zitat:

Müsste hier nicht die Zeilenanzahl stehen?

ja ich weiß^^ habs auch gesehen.
habe auch eine Schleife übersehn dir rein muss

[biby90]

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

[biby90]

will mir hier keiner helfen?

[DeddyH]

Wieso Array of string? Nimm TStrings stattdessen, dann kannst Du Memo1.Lines direkt übergeben.