Sortieralgorithmen

[AlexanderBrade]

Delphi-Quellcode:

setlength(C,8);                                              //Festlegen der Länge des Feldes C [Musik und Kunst]
C[0]:=strtoint(edit7.Text);                                  //usw.
C[1]:=strtoint(edit19.Text);
C[2]:=strtoint(edit31.Text);
C[3]:=strtoint(edit43.Text);
C[4]:=1;
C[5]:=1;
C[6]:=1;
C[7]:=1;

if (panel12.caption='KUN') or (panel12.caption='MUS') then                                //Soltte Kunst zusätzlich belegt worden seim, müssen diese Eingaben auch ins Feld einbezogen werden
begin
C[4]:=strtoint(edit11.Text);                                 //usw.
C[5]:=strtoint(edit23.Text);
C[6]:=strtoint(edit35.Text);
C[7]:=strtoint(edit47.Text);
end;

if (panel13.caption='KUN') or (panel13.caption='MUS') then                                //siehe oben
begin
C[4]:=strtoint(edit12.Text);
C[5]:=strtoint(edit24.Text);
C[6]:=strtoint(edit36.Text);
C[7]:=strtoint(edit48.Text);
end;

for ii:=1 to 7 do                                //vom zweiten Element bis zum Vorletzten
begin
     for jj:= 8 downto ii do                     //Vom letzten bis zum i.-Element
     begin
          if C[jj] < C[jj-1] then               //wenn j.-Element kleiner als j.-1-Element...
          begin                                 //..tauschen:
               kk := C[jj-1];                   //Wert des j.-1-Elements in Hilfsvariable
               C[jj-1] := C[jj];               //j.-1-Element soll j.-Element werden
               C[jj] := kk ;                  //j.-Element-Inhalt soll Hilfsvariable sein
          end;
     end;
end;

if C[7] = B[0] then B[0]:=1;                                //Das ist ohnehin Quark, diese Vergleiche können so nicht funktionieren!!!
if C[6] = B[6] then B[6]:=1;
if C[5] = B[12] then B[12]:=1;
if C[4] = B[18] then B[18]:=1;

if (panel12.caption='KUN') or (panel12.caption='MUS') then
begin
if C[7] = B[4]  then B[4]:=1;
if C[6] = B[10] then B[10]:=1;
if C[5] = B[16] then B[16]:=1;
if C[4] = B[22] then B[22]:=1;
end;

if (panel13.caption='KUN') or (panel13.caption='MUS') then
begin
if C[7] = B[5]  then B[5]:=1;
if C[6] = B[11] then B[11]:=1;
if C[5] = B[17] then B[17]:=1;
if C[4] = B[23] then B[23]:=1;
end;

C ist als dynamisches array definiert. Das gnaze klappt solnage nur Musik gewählt ist. Im Prinzip besthet das Problem im unteren Teil, ich muss gezielt die zwei besten Werte(von 4 oder 8 insgesamt) aus dem Feld ausschließen um sie dadurch auch aus der Sortierung auszuschließen. Im Moment kann das unten mit dem Vergelcihen nicht klappen. Ich muss die zwei Werte(C[7] und C[8]) gezielt ausschließen. Dazu ist es denke ich notwendig zu wissen wo diese beiden Elemente vorher standen!