Ausgabe eines Dynamischen Arrays in ein Memofeld?

[Klaus01]

Ich habe in Deinem Quelltext mal etwas herumeditiert.

Delphi-Quellcode:

{ MinSort: }
procedure TForm1.BitBtnMinSortClick(Sender: TObject);
  var
    i,j: Integer; //Zaehlvariablen
    s: String;
    Temp,Min: Integer; //Zwischenspeicher, Minimum
    ZeitAnfang,ZeitEnde: real;
    CounterVertauschungen: Integer;
  begin
    CounterVertauschungen:=0;
    Buttons_Verstecken;
    ZeitAnfang := Time;
   
    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;

        If CheckBoxZwischenschritte.Checked then <---so?
          begin
            s:='';
            for j:=0 to High(Feld) do
               s:=s+IntToStr(feld[j]);
            MemoZwischenschritte.lines.add(s);
          end;
       
        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;

Grüße
Klaus