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