Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
22. Nov 2005
So sollte es eigentlich funktioniere (nur noch editX anpassen):
procedure TForm1.whileschleife(n:integer; var h:array of integer);
var
i, j, hilf : integer;
start, ende, diff: TDateTime
begin
start:=Time; // Aktuelle Systemzeit speichern
for i:=1 to n do begin
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Versuch's mal so:
procedure minimumsuche(n:integer; var h:array of integer);
var
i,hilfsvar:integer;
fertig: boolean
begin
repeat
fertig:=true;
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Das liegt dann am Sortieralgorithmus...
Schau mir den noch mal genauer an...
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Kann sein, dass es so sein muss:
h:=strtoint(zufall.items);
Bin mir nicht sicher, ob TListBox mit Index 0 oder 1 anfängt... :(
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
procedure TForm1.Button7Click(Sender: TObject);
var n,i:integer;
h:array of integer;
begin
n:=strtoint(edit1.Text);
minimumsuche(n,h);
for i:=1 to n do
begin
sortiert.Items.Add(inttostr(h));
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Bevor ich es vergesse:
Du solltest vor dem Generieren der Zufallszahlen auf jeden Fall prüfen, ob edit1 überhaupt einen gültigen Wert enhält, sonst verabschiedet sich das Programm...
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Definiere das Array nicht in der Prozedur, sondern im "Interface" Teil oder direkt nach "implementation", dann kannst Du es von jeder Prozedur aus abrufen und bearbeiten.
Forum: Sonstige Fragen zu Delphi
Delphi
by neuronet,
21. Nov 2005
Zuerst mal herzlich Willkommen in der DelphiPraxis, Jacqybaby!!!!
So, hab mal dran rumgeschraubt und nun funktioniert das Ganze.
Schau es Dir mal an, und wenn Du noch fragen hast, dann melde Dich...