Danke für die Antworten
@Klaus01:
Meinst du so? So Klappts aber irgendwie nicht.
Delphi-Quellcode:
{ MinSort: }
procedure TForm1.BitBtnMinSortClick(Sender: TObject);
var
i,j,s: Integer; //Zaehlvariablen
Temp,Min: Integer; //Zwischenspeicher, Minimum
ZeitAnfang,ZeitEnde: real;
CounterVertauschungen: Integer;
begin
CounterVertauschungen:=0;
Buttons_Verstecken;
ZeitAnfang := Time;
s:=' '; <-----"Inkompatible Typen Int und Char"
for i := 0 to High(Feld) do begin
Min := i;
for j := i + 1 to High(Feld) do
if Feld[j] < Feld[Min] then Min := j;
Temp := Feld[Min];
Feld[Min] := Feld[i];
Feld[i] := Temp;
s:=s+feld[i]; <-----
MemoZwischenschritte.lines.add(IntToStr(s)); <-----
CounterVertauschungen:=CounterVertauschungen + 1;
ListboxSortiert.Items.Add(IntToStr(Temp)); //Ausgabe
end;
LblAuswahl.Caption:='Auswahl:'+ #13+#10+'MinSort';
ZeitEnde := Time;
LblEdtSortierzeit.Text := FloatToStrF((ZeitEnde-ZeitAnfang)*24*60*60,ffFixed,10,2);
Ausgabe_GrafischeDarstellung;
If CheckBoxZwischenschritte.Checked=true then LblEdtSortierzeit.Text:='---';
LblEdtVertauschungen.Text:=IntToStr(CounterVertauschungen);
LblEdtZuweisungen.Text:=IntToStr(3+(CounterVertauschungen*8)+6);
end;
Zitat von
jaenicke:
Und wegen der falschen Sortierung sollte es reichen das > in ein < zu verändern oder umgekehrt, je nach Code.
Funktioniert auch nicht => Es kommen Zahlen raus,d ie gar nicht sortiert werden sollten