Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by gammatester,
8. Jul 2008
Ich denke, daß zumindest Deine Quciksort-Routine unter einem bekannten Problem leidet:
procedure TBSearch.QuickSort(L, R: Integer);
var
I, J, P: Integer;
begin
repeat
I := L;
J := R;
P := (L + R) shr 1;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by gammatester,
8. Jul 2008
Sollte das nicht besser heißen
L := Low(AArray);
R := High(AArray);
Gruß Gammatester
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by gammatester,
3. Jun 2008
Bei der Integersuche wird doch der Teil if (right < left) then break nie ausgeführt, da left <= right, oder übersehe ich da was Offensichtliches? (Wahrscheinlich nicht, da der entstrechende Teil bei der Stringsuche nicht da ist.)
Gruß Gammatester