Ich habe noch einmal ein Problem und zwar will ich den jeweils veränderten Bereich (durch quicksort) in einem Stringgrid darstellen...
dazu haben ich folgendes geschrieben:
Delphi-Quellcode:
{....}
var
Form1: TForm1;
Zahlen : Array[1..100] of boolean;
ZZahlen: Array[1..10] of boolean;
SS_liste: Array[0..9] of integer;
durchlauf : integer;
{...}
procedure akt_sg (a: array of integer; b, c:integer);
var j, start, ende: integer;
begin
if (b >= c) then begin start := c; ende:= b; end;
for j := start to ende do begin
form2.Stringgrid1.Cells[j+1, durchlauf] := IntToStr(ss_liste[j]);
end;
end;
{...vorderer Teil der QS-Prozedur...Rest siehe 3. letztes Posting (wollte dies hier nich zu voll packen)...}
temp := a[l_pos];
a[l_pos] := a[r_pos];
a[r_pos] := temp;
inc(durchlauf);
if (l_pos < pivot_feld) then akt_faktor := anfang else akt_faktor := ende; //*1
akt_sg(a, akt_faktor, pivot);
{...danach folgender Teil...}
Ich hab mir da so gedacht, dass mit dem bei "*1*" markierten bereich kontrolliert wird, welcher Teil des gesamten verändert wurde ich dann mit der oberen "akt_sg" prozedur das in das Stringgrid übertrage, doch aus irgendeinem Grund funktioniert da schon etwas mit der parameter übergabe nicht so ganz, wie ich es haben möchte.
Wäre für eure Hilfe sehr dankbar