StringGrid Sortieren

[SIrRonBird]

Hallo Leute,

ich soll eine Tabelle(nInhalt) in Lazarus der größe nach sortieren, wenn das nicht genug wäre muss ich das in 6 verschiedenen Methoden machen !

Kann mir jemand einen Pseudo Code oder gar ein komplettes Programm geben mit dem ich arbeiten kann ? Wäre echt super !

MFG SirRonBird



P.S. Bitte keine Wikipedia Links die Pseudo Codes sind nicht für Lazarus geschaffen !

[m.fuchs]

• Du hast diese Frage (in leicht abgewandelter Form) schon einmal gestellt. Es ist unhöflich im anderen Thema nicht zu reagieren und hier wieder neu zu fragen.
• Du hast dort Antworten bekommen.
• Pseudo-Codes sind (wie der Name schon sagt) kein fertiger Programmcode. Du musst also verstehen wie der dort beschriebene Algorithmus funktioniert und ihn in Pascal umsetzen.
• Es wurden dir auch Tipps gegeben, wie du an Bespielpascalcode kommst.
• Google ist nicht schwer zu bedienen.
• Hier wird niemand deine Hausaufgaben machen. Du musst schon konkrete Fragen stellen.

[SIrRonBird]

Ok sorry ich bin nur verzweifelt ! Unser Lehrer ist ein nicht gerade guter Erklährer

[Scotty]

Kann mir jemand einen Pseudo Code oder gar ein komplettes Programm geben mit dem ich arbeiten kann ?

Pseudocode ohne Wikipedia: lmgtfy: http://www.codecodex.com/wiki/Bogosort
Komplettes Programm: schreibe ich dir gern. Mein heutiges Sonderangebot dafür liegt bei 195,90€.
Lies auch hier mal nach: http://de.wikipedia.org/wiki/Netiquette (Doppelposts werden nicht gern gesehen)
Und die letzte Bemerkung ist immer die wichtigste: Hausaufgaben schreibt man nicht ab!

[SIrRonBird]

Ich entschuldige mich nochmal für mein Fehlverhalten !

Wie löscht man denn so ein Post ;(oder Thema )?

[Christian]

Warum sollte das gelöscht werden ?
Ist lehrreich, sollte bleiben.

[SIrRonBird]

Warum sollte das gelöscht werden ?
Ist lehrreich, sollte bleiben.

Weil mich alle fertig machen !

[hde]

soo schlimm ist ja nun auch nicht und fertig macht dich hier auch niemand.
hde

[mschnell]

Weil mich alle fertig machen !

Stelle eine konkrete Frage und alles wird gut !
(Pluto wird sicher helfen... )
-Michael

[amrs]

Hi Du Verzweifelter,

wahrscheinlich kann ich Dir helfen.

Ich habe vor einem Jahr mal ein Buchhaltungsprogramm in Delphi programmiert. Dort sind mehrere StringGrids enthalten, die alle je nach Inhalt (Index, Nummer - Datum - Text) auf- bzw. absteigend sortiert werden können. Sobald ich Feierabend habe, kann ich Dir den Quellcode der Sortiererroutine schicken.

Andreas

[Heinrich Wolf]

Bitte keine Wikipedia Links die Pseudo Codes sind nicht für Lazarus geschaffen !

Der Sinn von Pseudo Code ist nicht, dass er für Lazarus oder sonst eine Sprache geschaffen wäre, sondern gerade eben unabhängig von einer Programmiersprache ist. Er soll für jeden lesbar und verständlich sein, so dass jemand ihn in die Programmiersprache seiner Wahl übersetzen kann.

Nicht dass ich Dir eine fertige Hausaufgabe abliefern möchte ... aber ich hab eine Klasse TSortGrid von TStringGrid abgeleitet, darin eine selbst gemachte Klasse TSort verwendet und das ganze in ein Demo Projekt verpackt. Ich möchte Dich ermutigen, das anzuschauen und zu verstehen. Wenn Du Teile davon in Deiner Hausaufgabe verwendest, bitte ich um eine saubere Dokumentation, wo Du das her hast. Es ist Code, der in Delphi ebenso wie in Lazarus funktioniert, in Linux ebenso wie in Windows. TSort enthält einen minimalistischen Code für QuickSort. Das ist sehr gebräuchlich und schnell. Aber damit enthält mein Projekt nur einen von Deinen 6 geforderten Algorithmen. Das ganze ist hier: http://www.Wolf-Fuerth.de/sortgrid.zip.

Ich kann auch das Buch Wirth, Niklaus; Algorithmen und Datenstrukturen; B.G. Teubner, Stuttgart; ISBN 3-519-02330-x empfehlen. Niklaus Wirth ist der Erfinder von Pascal. In dem Buch gibt es mehrere Sortieralgorithmen in Pascal aus der Zeit vor Turbo Pascal. Ich habe sie auf einem ganz alten Compiler für Commodore 4032 (Prozessor 6502 mit 8-Bit Registern und 16 Bit Adressbus) getestet. Den Quellcode lege ich hier als ZIP Archiv bei:

SORT.zip

(5.49 KiB) 121-mal heruntergeladen

Enthaltene Verfahren sind

Code: Alles auswählen

  sorttest(instsort);
  sorttest(bsort   );
  sorttest(selcsort);
  sorttest(shaksort);
  sorttest(heapsort);
  sorttest(qsort   );
  sorttest(shelsort);
  sorttest(binssort);
  sorttest(baumsort);
  sorttest(mlqsort );
  sorttest(bbmsort );
  sorttest(lqsort  );
  sorttest(mrgsort );
 

Das Testergebnis habe ich in simplen Graphiken mit einem selbst geschriebenen Graphikprozessor ausgegeben. Die Graphiken sind als *.gif in diesem ZIP Archiv:

SORTDAT.zip

(45.15 KiB) 107-mal heruntergeladen

Zur Anzeige als Bild in diesem Forum sind die Bilder zu hoch.

[amrs]

Hi Du Verzweifelter,

hier ist der Ausschnitt aus einem Programm, das ich ketztes Jahr mal geschrieben habe:

Code: Alles auswählen

 
  for i := 1 to gridzeilen - 1 do
  begin
    for j := i + 1 to gridzeilen do
    begin
      tauschen := false;
      if ARow = 1 then
      begin
        case ACol of
          0:                 begin
                               if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] <> '') then
                               begin
                                 if StringGrid2.Cells[ACol, i][1] > StringGrid2.Cells[ACol, j][1] then tauschen := true;
                                 if StringGrid2.Cells[ACol, i][1] = StringGrid2.Cells[ACol, j][1] then
                                 begin
                                   if StrToInt(Copy(StringGrid2.Cells[ACol, i], 2, Length(StringGrid2.Cells[ACol, i]) - 1)) > StrToInt(Copy(StringGrid2.Cells[ACol, j], 2, Length(StringGrid2.Cells[ACol, j]) - 1)) then tauschen := true;
                                 end;
                               end
                               else
                               begin
                                 if (StringGrid2.Cells[ACol, i] = '') and (StringGrid2.Cells[ACol, j] <> '') then tauschen := true;
                                 //if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] = '') then tauschen := true;
                               end;
                             end;
          5, 9, 10, 11, 12:  if StringGrid2.Cells[ACol, i] > StringGrid2.Cells[ACol, j] then tauschen := true;
          1:                 if StrToDate(StringGrid2.Cells[ACol, i]) > StrToDate(StringGrid2.Cells[ACol, j]) then tauschen := true;
          2:                 begin
                               if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] <> '')then
                               begin
                                 if StrToDate(StringGrid2.Cells[ACol, i]) > StrToDate(StringGrid2.Cells[ACol, j]) then tauschen := true;
                               end
                               else
                               begin
                                 if (StringGrid2.Cells[ACol, i] = '') and (StringGrid2.Cells[ACol, j] <> '') then tauschen := true;
                               end;
                             end;
          3,4,6:             if StrToInt(StringGrid2.Cells[ACol, i]) > StrToInt(StringGrid2.Cells[ACol, j]) then tauschen := true;
          7, 8:              if StrToFloat(StringGrid2.Cells[ACol, i]) > StrToFloat(StringGrid2.Cells[ACol, j]) then tauschen := true;
        end;
      end
      else
      begin
        case ACol of
          0:                 begin
                               if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] <> '') then
                               begin
                                 if StringGrid2.Cells[ACol, i][1] < StringGrid2.Cells[ACol, j][1] then tauschen := true;
                                 if StringGrid2.Cells[ACol, i][1] = StringGrid2.Cells[ACol, j][1] then
                                 begin
                                   if StrToInt(Copy(StringGrid2.Cells[ACol, i], 2, Length(StringGrid2.Cells[ACol, i]) - 1)) < StrToInt(Copy(StringGrid2.Cells[ACol, j], 2, Length(StringGrid2.Cells[ACol, j]) - 1)) then tauschen := true;
                                 end;
                               end
                               else
                               begin
                                 if (StringGrid2.Cells[ACol, i] = '') and (StringGrid2.Cells[ACol, j] <> '') then tauschen := true;
                                 //if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] = '') then tauschen := true;
                               end;
                             end;
          5, 9, 10, 11, 12:  if StringGrid2.Cells[ACol, i] < StringGrid2.Cells[ACol, j] then tauschen := true;
          1:                 if StrToDate(StringGrid2.Cells[ACol, i]) < StrToDate(StringGrid2.Cells[ACol, j]) then tauschen := true;
          2:                 begin
                               if (StringGrid2.Cells[ACol, i] <> '') and (StringGrid2.Cells[ACol, j] <> '')then
                               begin
                                 if StrToDate(StringGrid2.Cells[ACol, i]) < StrToDate(StringGrid2.Cells[ACol, j]) then tauschen := true;
                               end
                               else
                               begin
                                 if (StringGrid2.Cells[ACol, i] = '') and (StringGrid2.Cells[ACol, j] <> '') then tauschen := true;
                               end;
                             end;
          3, 4, 6:           if StrToInt(StringGrid2.Cells[ACol, i]) < StrToInt(StringGrid2.Cells[ACol, j]) then tauschen := true;
          7, 8:              if StrToFloat(StringGrid2.Cells[ACol, i]) < StrToFloat(StringGrid2.Cells[ACol, j]) then tauschen := true;
        end;
 
      end;
      if tauschen then
      begin                                             //ShowMessage('Austausch Zeilen ' + IntToStr(i) + ' <-> ' + IntToStr(j));
        for spalte := 0 to 12 do
        begin
          dummy := StringGrid2.Cells[spalte, i];
          StringGrid2.Cells[spalte, i] := StringGrid2.Cells[spalte, j];
          //Sleep(1000);
          StringGrid2.Cells[spalte, j] := dummy;
          //Sleep(1000);
        end;
      end;
    end;
  end;

In den Spalten 0 bis 12 befinden sich Daten unterschiedlicher Datentypen. Datum, Zahlen, Texte, Beträge, oder auch leere Felder.

Der Algrithmus sortiert den StringGrid auf- bzw. absteigend. Beim Algorithmus handelt es sich um "Linear-Sort", also das langsamste Verfahren, das es gibt. Bei den heutigen Prozessoren und den Datenmengen meines Programms reicht mir dieses.

Viel Spaß beim Umsetzen

Andreas

[SIrRonBird]

Vielen vielen Dank euch ! Ich werde damit viel anfangen werden ! Danke

MFG SirRonBirdv