Sortieralgorithmen

[biby90]

habe jetzt in meinem button eingefügt, dass wenn ein leerstring vorhanden ist, die zeile gelöscht wird. aber irgendwie funktioniert das nicht ganz.... wenn er es sortiert hat fehlt ein wort und die obere zeile ist leer....
ich habe mir jetzt gedacht, dass ich die zeile um einen verschiebe, wenn eine zeile gelöscht wurde.
also entweder lasse ich ihn das ganze noch einmal prüfen ab der gelöschten zeile oder mache es so wie ich es probiert habe....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lArray: array of String;
  i, j : Integer;
  A, B : String;
begin
  SetLength(lArray, Memo1.Lines.Count);

  for i := 0 to Memo1.Lines.Count -1 do
  begin
    //sicherstellen, dass der String min. ein Zeichen hat.
    if Memo1.Lines.Strings[i] = '' then
    begin
      Memo1.Lines.Delete(i);
      dec(j); //klappt trotzdem nicht
    end else
    begin
      lArray[i] := Memo1.Lines.Strings[i][1];
    end;
  end;

    //Array sortieren.
    ShellSort(lArray);

    //TODO: Array zurück ins Memo kopieren.
    Memo1.Lines.Clear;
    Memo1.Lines.Add('');
    for i := 0 to Length(lArray) - 1 do
    begin
      Memo1.Lines.Add(lArray[i]);
    end;
end;

naja es klappt aber irgendwie nicht.

[Bjoerk]

Das mußt du mit einer while Schleife machen, da sich Memo1.Lines.Count ändert, wenn eine Zeile gelöscht wurde.

[biby90]

ganz genau das hab ich gesucht... danke schöööön ich probiere es gleich ma aus....
ist nur noch die frage wie und wo ich sie einsetze aber das versuch ich alleine herauszufinden.... das kann ja nicht all zu schwer sein

[biby90]

werde nicht ganz schlau daraus.... vielleicht ein kleiner hinweis wo ich den ungefähr hinsetzen muss?

[Bjoerk]

Pseudocode

Delphi-Quellcode:

  I:= 0;
  while I <= Count-1 do
  begin
    if Soll Zeile I Löschen then
    begin
      Lösche Zeile I
      Dec(I);
    end;
    Inc(I);
  end;

  array [0..count-1] = Memo.Lines[0..count-1]
  sort array

  Memo.Lines.BeginUpdate
  Memo.Lines[0..count-1] = array [0..count-1]
  Memo.Lines.EndUpdate

[DeddyH]

Mit einer absteigenden For-Schleife löscht man etwas einfacher.

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do
  if Memo1.Lines[i] = '' then
    Memo1.Lines.Delete(i);

[biby90]

Deddyh.... das war schon das richtige nur jetzt lässt er in den ersten beiden zeilen einen leerstring... die sollen ja auch noch weg. zu mindest bleiben jetzt alle werte da

[Bjoerk]

Länge des Array aktualisiern nicht vergessen.
SetLength (Array, Memo.Lines.count);

[biby90]

wenn ich das mache sind alle werte weg

[biby90]

wenn ich SetLength(lArray, Memo1.Lines.Count) mit eingebe dann löscht er werte und behält die leerzeile.... er soll das doch umgekehrt machen!
och manno.... alles doof heute