Delphi-Quellcode:
procedure TAbiturrechner.Button1Click(Sender: TObject);
var noten : Blg;
i : integer;
begin
for i := 1 to 5 do begin
noten[i].Notenpunkte := strtoint(Edit1.Text);
noten[i].Editfeld := Edit1.Text;
end;
Bubblesort(noten);
end
Das ist ja eigentlich keine wirkliche Änderung :\
EDIT: Wieso eigentlich 5 mal das gleiche aus Edit1.Text auslesen?
Und warum genau 5 mal, wenn doch Blg ein Array[1..10] ist ?
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.