Delphi-Quellcode:
{ alle "Zahlen" aus Spalte #1 in Spalte #2 kopieren }
for i:=1 to 100 do // es sollen 100 Werte kopiert und sortiert werden und nicht nur 99!
StringGrid1.Cells[2,i] :=StringGrid1.Cells[1,i];
Bzgl. "KeinWechsel": Wenn in einem Durchgang kein Tausch stattfindet, ist das Array komplett sortiert. Falls ein Tausch stattgefunden hat (von "i" auf "i+1") muss das Programm natürlich weiterprüfen (also dann "i+1" mit "i+2").