![]() |
Record sortieren
Guten Abend,
nur komme ich irgendwie nicht weiter. Bin gerade dabei ein bisschen mit Delphi zu basteln und habe versucht ein record anzulegen usw. klappt alles bestens nur möchte ich den record gerne ordnen. Bin dabei auf das ![]()
Delphi-Quellcode:
procedure TForm1.Swapvalues(var x,y: integer);
var dummy: integer; begin dummy:=x; x:=y; y:= dummy; end;
Delphi-Quellcode:
Ich glaube ich habe ein wenig viel geändert die allgemeine Form von Daniel war:
procedure TForm1.dataord;
var i,j,min : integer; a,b:String; begin for i:= 1 to datalist.Count-1 do begin min:= i; for j:= i+1 to datalist.Count do begin datalist.Items[j]; a:=aData^.Text1; datalist.Items[min]; b:=aData^.Text1; if (a<b)then begin min:= j; Swapvalues(i,min); end; end; end; end;
Delphi-Quellcode:
Wie komme ich da wieder raus? Vielen Dank im Voraus
Procedure SelectionSort;
var i, j, min : Integer; Begin For i:= 1 to N-1 Do Begin min:= i; For j:= i+1 To N Do If (Data[j] < Data[min]) Then min:= j; SwapValues( i, min); End; End; |
Re: Record sortieren
Diese Zeile
Delphi-Quellcode:
und diese auch
datalist.Items[j];
Delphi-Quellcode:
bewirken, wie soll ich sagen...nichts. Es fehlt LValue, eine Variable auf der linken Seite, die das Wert von datalist.Items[n] aufnimmt (speichert).
datalist.Items[min];
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz