Hallo, danke!
Ich habe Euren Vorschlag probiert und leider bekomme ich nun die Fehlermeldung, dass Data undeklariert ist.
Folgendes mache ich bisher!
Delphi-Quellcode:
procedure TForm1.btn_sortby_heightClick(Sender: TObject);
var
i,j,k,s:integer;
HelpRecord : Array[0..9,0..99] of String;
begin
//myRecord in HelpRecord einlesen
for i:=0 to 99 do
begin
for k:=0 to 9 do
begin
HelpRecord[k,i]:=myRecord[k,i];
end;
end;
//Bubblesort starts here
s:=3; //bedeutet 3 = height
For i:= high(myRecord[0]) downto low(myRecord[0]) Do
For j:= low(myRecord[0]) To i Do
If (Data[s, j-1] > Data[s, j]) Then SwapValues( j-1, j ); //in swapValues Tauschst du die ganze Zeile
end;
global habe ich deklariert
Delphi-Quellcode:
var
myRecord : Array[0..9,0..99] of String;
Ich raffs einfach nicht
