Einzelnen Beitrag anzeigen

StrangeImp

Registriert seit: 1. Jan 2009
7 Beiträge
 
Delphi 7 Personal
 
#4

Re: Ausgabe eines Dynamischen Arrays in ein Memofeld?

  Alt 1. Jan 2009, 13:58
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
  Mit Zitat antworten Zitat