Stringgrid sortieren

[langer hans]

Hallo!
Mein Problem ist folgendes. In ein Stringgrid werden Zufallszahlen eingefügt, die in die Reihe darunter sortiert ausgegeben werden.
Das wird mit einer modifizierten Versoion einer funktion gelösst die die kleinste Zahl sucht.

Wäre nett, wenn sich das jemand angucken könnte. siehe Anhang.

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;

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;

Vielen Dank im Vorraus!!

MfG

[Luckie]

Zitat:

Zitat von langer hans

Wäre nett, wenn sich das jemand angucken könnte.

Angeguckt.

[langer hans]

Danke! Aber hast du auch eine Lösung für mich??

MfG

[Klaus01]

Wieso sortierst Du denn nicht das Zahlenarray?
Infos zu Sortierverfahren findest Du hier -> http://www.hrz.uni-dortmund.de/A1/ku...eil2_tag3.html

Grüße
Klaus

[langer hans]

Das ist natürlich auch einen Möglichkeit, allerdings würde ich es gerne genau so lösen...

Ich find einfach den Denklfehler nicht. Der müsste doch bei jedem Schleifendurchlauf die kleinste Zahl in das Stringgrid schreiben...

Danke nochmal für den Link!

MfG langer_hans

[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

[langer hans]

Zitat:

Zitat von 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.

Aber das sagt doch garnicht, dass die Zahl an einer Position kleiner i liegt. Die Grenze wird doch immer um 1 nach oben verschoben, so wie es auch in dem Link steht.

Zitat:

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 i-te.

Das nennet sich sortieren durch vertauschen.

Ist auch in dem Link erklärt.

Grüße
Klaus

Die Funktion gibt mir doch die kleinste Zahl innerhalb des immer kleiner werdenden unsortierten Bereichs an. Das klappt ja auch bei der ersten zhal ganz gut... Ich will die Zahlen ja anich im Array sortieren.

Es tut mir echt Leid, dass ich es nicht verstehe, aber trotzdem Danke für die Hilfe!!! :dp: :oops:

[Klaus01]

Mit Deinem Code läuf das so:

z.B. Zahlen im Array : 9 2 8 1 4 7 8 ..

Nach dem ersten Durchlauf (i=1) bekommst Du die
1 als kleinste Zahl.

Nach dem zweiten Durchlauf (i=2) bekommst Du die
1 als kleinste Zahl. Warum , weil die 1 immer noch an der
gleichen Position steht wie zuvor.

Nach dem dritten Durchlauf (i=3) bekommst Du die
1 als kleinste Zahl.

Nach dem vierten Durchlauf (i=4) bekommst Du die
1 wieder als kleinste Zahl.

Nach dem fünften Durchlauf (i=5) bekommst Du die
4 als kleinste Zahl. Wo ist die 2 geblieben?

und so geht das weiter, es gehen Zahlen verloren und
es werden Zahlen wiederholt.

Grüße
Klaus

[langer hans]

Bingo!!! :bouncing4:
Jetzt hab ichs verstanden!!! Vielen Dank. Ich probiers dann demnächst mal aus und meld mich dann nochmal.

Vielen Dank und MfG langer_hans

EDIT: Ich habs geschafft! hier noch mal der erfolgreiche Code:

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
     begin
      vergleich:=zahlen[i];
      zahlen[i]:=zahlen[a];
      zahlen[a]:=vergleich;
     end;
   end;
 result:=vergleich;
end;

Vielen Dank nochmal!! :dp: