erstmal vielen Dank für eure Hilfe! besonderen Dank an DeddyH!
Bubblesort funktioniert für die Sortierung der Noten schon wunderbar, aber die Fächer werden nicht wirklich sortiert.Anstatt diese so zu sortieren, dass am Ende die Noten wieder zu den Fächern passen, werden die Fächer auch mit den Noten befüllt und sortiert von 1 bis ...
Ich kann mir den Fehler nicht wirklich erklären, weil die Sortierung der Noten wunderbar funktioniert und diese durch "StrToInt" eingelesen werden, also kann bei den strings nicht wirklich was falsch sein, oder?
Delphi-Quellcode:
unit fAbiturrechner;
var
Abiturrechner: TAbiturrechner;
List : TStringList;
type
TNoteneintrag =
record
Editfeld:
string;
Notenpunkte: Integer;
end;
Blg =
array[1..5]
of TNoteneintrag;
implementation
procedure SwapIntegers(
var a, b : integer);
begin
a := a
xor b;
b := b
xor a;
a := a
xor b;
end;
procedure BubbleSort(
var List: Blg);
var
done: boolean;
i, n: integer;
Dummy:
string;
begin
n := High(List);
repeat
done := true;
for i := Low(List)
to High(List) - 1
do
if List[i].Notenpunkte > List[i + 1].Notenpunkte
then
begin
Dummy := List[i].Editfeld;
List[i].Editfeld := List[i+1].Editfeld;
List[i + 1].Editfeld := Dummy;
SwapIntegers(List[i].Notenpunkte,List[i + 1].Notenpunkte);
done := false;
end;
until done;
end;
procedure TAbiturrechner.Button1Click(Sender: TObject);
var noten : Blg;
var s,z :
string;
var i,u, t : integer;
begin
FillChar(noten,SizeOf(noten),#0);
for i := 1
to 5
do begin
s := TEdit(FindComponent('
Edit' + inttostr(i))).Text;
//<-- string wird z.b. mit "Edit1.Text" gefüllt
u := StrToInt(s);
//<-- Noten werden eingelesen
noten[i].Notenpunkte := u;
noten[i].Editfeld := s;
end;
Bubblesort(noten);
for i := Low(noten)
to High(noten)
do
ShowMessage(Format('
%d',[noten[i].Notenpunkte]));
z := noten[1].Editfeld;
//<-- Kontrolle! Hier sollte das Editfeld mit der kleinsten Punktzahl stehen
showmessage(z);
end;
end.