Ich habe das eher so verstanden für jedes Fach das schlechteste Semester zu finden.
Wenn nur 1 aus n gefragt ist, kann man sich das sortieren auch sparen:
Delphi-Quellcode:
procedure MarkiereSchlechtesteNote(const AEditArr: array of TSpinEdit);
var
i: Integer;
Item: TSpinEdit;
begin
Item := nil;
for i := Low(AEditArr) to High(AEditArr) do
begin
if (Item = nil) or (Item.Value > AEditArr[i].Value) then
Item := AEditArr[i];
AEditArr[i].Color := clWindow;
end;
if Assigned(Item) then
Item.Color := clRed;
end;
{Fach1}
MarkiereSchlechtesteNote([SpinEditFach1Semester1,
SpinEditFach1Semester2,
SpinEditFach1Semester3,
SpinEditFach1Semester4]);
{Fach2}
MarkiereSchlechtesteNote([SpinEditFach2Semester1,
SpinEditFach2Semester2,
SpinEditFach2Semester3,
SpinEditFach2Semester4]);
{usw.}