danke das läuft jetzt schonmal flüssig
aber ich habe manchmal einen Error in der markierten zeile
Delphi-Quellcode:
{...}
markiere(clRed, l_pos);
markiere(clRed, r_pos);
Application.ProcessMessages;
sleep(1000);
temp := a[l_pos];
a[l_pos] := a[r_pos];
a[r_pos] := temp;
aktualisieren;
markiere(clGreen, l_pos);
markiere(clGreen, r_pos); //<-------- Hier
Application.ProcessMessages;
sleep(1000);
der Error is eine EAccessVioliation