Sortieren mit direktem Auswahlort

[humbuck]

Und das Problem mit der letzten 'Zeile':

Delphi-Quellcode:

For min := 0 To max do
      begin
        lblsort.caption := lblsort.caption + IntToStr(sort[min]) + '; ';

      end;

kannste z.B. so lösen:

Delphi-Quellcode:

For min := 0 To max do
      begin
        IF Min < max then
          lblsort.caption := lblsort.caption + IntToStr(sort[min]) + '; ';
        else
          lblsort.caption := lblsort.caption + IntToStr(sort[min]);

      end;

Könnte man aber auch eleganter lösen... wenn's gewollt ist..