Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
3. Mai 2006
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:
{....}
var
Form1: TForm1;
Zahlen : Array of boolean;
ZZahlen: Array of boolean;
SS_liste: Array of integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
1. Mai 2006
ok das leuchtet ein...danke !
aber jetzt habe ich wieder das problem, dass Edit10 immer überschrieben wird und da immer "+ 1".
Hätte jemand eine idee warum ?
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
1. Mai 2006
danke das läuft jetzt schonmal flüssig
aber ich habe manchmal einen Error in der markierten zeile
{...}
markiere(clRed, l_pos);
markiere(clRed, r_pos);
Application.ProcessMessages;
sleep(1000);
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
1. Mai 2006
super danke
das nenne ich ne verkürzung ^^
hat denn noch jemand ne idee warum das programm stockt ?
procedure aktualisieren;
var j: integer;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
1. Mai 2006
sorry aber "FindComponent" habe ich noch nie gehört ^^
könntest du mir ein beispiel geben ?
danke schonmal im voraus
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
1. Mai 2006
dakne für die antworten.
funktioniert jetzt auch soweit.
aber warum muss es "<=" sein ? wenn die doch gleich sind also auf einem "Punkt" stehen kann man die ja schlecht tauschen, also es macht keinen großen oder ?
ich habe jetzt all diese Arrayteile in Editfelder ausgegeben um den vorgang des Quicksort zu visualisieren. so mache ich immer einen Pfeil unter dem Editfeld, wo gerade das...
Forum: Sonstige Fragen zu Delphi
Delphi
by bonanza,
30. Apr 2006
Hi,
ich muss ein Array mit Quicksort sortieren. Hier der Quellcode der Procedure:
var
QS_liste: Array of integer;
l_pos, r_pos, pivot, temp, pivot_feld : integer;
{...}
procedure Quicksort(var a: array of integer; anfang, ende:integer);
var i: integer;
begin