So sollte es eigentlich funktioniere (nur noch editX anpassen):
Delphi-Quellcode:
procedure TForm1.whileschleife(n:integer;
var h:
array of integer);
var
i, j, hilf : integer;
start, ende, diff: TDateTime
begin
start:=Time;
// Aktuelle Systemzeit speichern
for i:=1
to n
do begin
j:=i;
hilf:=h[i];
while (j > 1)
and (h[j-1] > hilf)
do begin
h[j]:=h[j-1];
Dec(j);
end;
h[j]:=hilf;
end;
ende:=Time;
// Aktuelle Systemzeit speichern
diff:=ende-start;
// Differenz berechenen
editX.Text:=timetostr(diff);
// Differenz ausgeben
end;