Hiho hab mal wieder ein Problem:
hier meine Source vom Quicksort:
Delphi-Quellcode:
procedure QuickSort();
var i,j,d,r,h1,h2: integer;
data: array[1..maxelements] of integer;
begin
i:=d;
j:=r;
h1:=data[(i+j) div 2];
while i<j do begin
while data[i] < h1 do i:= i+1;
while data[j] > h1 do j:= j-1;
end;
if i<=j then
begin
h2:=data[i];
data[i]:= data[j];
data[j]:= h2;
i:= i+1;
j:= j+1;
end
else exit;
if d<j then Quicksort() else exit;
if i<r then Quicksort() else exit;
form1.memo1.lines.add(inttostr(data));
end;
Aber jetzt meckert der bei der letzen Zeil!
[Fehler] Unit1.pas(269): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann
hab kA was das zu bedeuten hat, und wie ich jetzt meine sortieren elemente (data) in ein memo schreiben soll ?
kann mir jemand helfen ?
thx
Trouble_Maker
PS: Hab bisher nur wenig erfahrungen mit eigenständigen Prozeduren