Stringgrid sortieren

[Klaus01]

Delphi-Quellcode:

procedure TForm1.btSortierenClick(Sender: TObject);
var 
  i,j,min,hilfsvar:integer;
begin
  for i:=1 to 10 do 
    begin
      Stringgrid1.Cells[i-1,2]:=inttostr(kleinstezahl(i,10));
    end;
end;

Wer sagt Dir denn, daß die kleinste Zahl immer in der Position kleiner i liegt,
Liegt sie dahinter wird diese Zahl des öfteren als kleinste Zahl erkannt.

Delphi-Quellcode:

function kleinstezahl(a,b:integer):integer;
var i,vergleich:integer;
begin
  vergleich:=zahlen[a];
  for i:=a to b do
    begin
      if zahlen[i]<vergleich then
         vergleich:=zahlen[i];

    end;
  result:=vergleich;
end;

Wenn Du hier die kleinste Zahl ermittelt hast
mußt Du sie an die a-te Position des Array schieben
und die Zahl von der a-ten Position an die Position der kleinsten Zahl.

Das nennet sich sortieren durch vertauschen.

Ist auch in dem Link erklärt.

Grüße
Klaus