Hallo,
kann mir jemand helfen, wie man die Zufallszahlen der zweiten Spalte in der dritten Spalte eines Stinggrids wieder sortiert ausgibt?
Da ich Anfänger bin, bitte ich bei groben Schnitzern um Nachsicht.(Delphi Prof.2005) Ich versuche damit zu verstehen, wie das Verfahren funktioniert.
Delphi-Quellcode:
type
Zahl= array[1.. 100] of integer;
procedure TForm1.Button2_BubblesortClick(Sender: TObject);
var
j,i,n, Merke: integer;
begin
n:=5;
with StringGrid1 do
for i:= n-1 downto 1 do
for j:= 1 to i do
if Zahl[j]> Zahl[j+1] then
begin
Merke:= Zahl[j];
Zahl[j]:= Zahl[j+1];
Zahl[j+1]:= Merke;
end;
StringGrid1.Cells[2,i]:=IntToStr(Merke);
end;
Herzlichen Dank im voraus
Technikus