Forum: Object-Pascal / Delphi-Language
Delphi
by JasonDX,
13. Sep 2004
schreib sowas:
procedure TForm1.btn_sortby_heightClick(Sender: TObject);
var
i,k,j,s:integer; //s ist die Spalte, nach der sortiert werden soll
buff: string;
begin
//Bubblesort starts here
For i:= high(myRecord) downto low(myRecord) Do
For j:= low(myRecord) To i Do
If (myRecord > myRecord) Then
Forum: Object-Pascal / Delphi-Language
Delphi
by JasonDX,
13. Sep 2004
Schreib statt Data myRecord... :roll:
lass mich raten: er kenn SwapValues nicht?
Forum: Object-Pascal / Delphi-Language
Delphi
by JasonDX,
13. Sep 2004
Er könnt auch den Buttons das entsprechende Tag geben und dann x über TButton(Sender).Tag zuweisen, ging noch besser, denn dann kann er alle Button-ereignisse in eins packen.
ach ja @Toxman ich glaub es is Data, nicht Data :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by JasonDX,
13. Sep 2004
procedure TForm1.btn_sortby_heightClick(Sender: TObject);
var
i,k,s:integer; //s ist die Spalte, nach der sortiert werden soll
begin
//Bubblesort starts here
For i:= high(myRecord) downto low(myRecord) Do
For j:= low(myRecord) To i Do
If (Data > Data) Then SwapValues( j-1, j ); //in swapValues Tauschst du die ganze Zeile
end;