Hallo!
So, wie ich es sehe, wäre laut Beschreibung BubbleSort was für mich.!?
Delphi-Quellcode:
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= N downto 1 Do
For j:= 1 To i Do
If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;
Leider weiss ich echt nicht, wo ich wie den Code zum Einsatz bringen müsste, um meinen
mehrdimensionalen DatenRecord zu sortieren...
Delphi-Quellcode:
procedure TForm1.btn_sortby_heightClick(Sender: TObject);
var
i,k:integer;
HelpRecord : Array[0..9,0..49] of String;
begin
//myRecord in HelpRecord einlesen
for i:=0 to 49 do
begin
for k:=0 to 9 do
begin
HelpRecord[k,i]:=myRecord[k,i];
myRecord[k,i]:=''; // Originalarray wird gleich leer gemacht
end;
end;
//und hier müsste dann myRecord sortiert wieder befüllt werden
BubbleSort //tja Parameter gibts keine, also wie und was?????
//laut obiger Beschreibung müsste ich, wenn ich nach Höhe sortieren wollte,
//im dem ersten array nach dem 3 Eintrag sortieren
end;