zahlen sortieren

**ahnungsloser**

Guckt mal, ich hab dieses Programm geschrieben, es kommt aber immer eine Fehlermeldung, wenn ich den Sortierenbutton anklicke. Woran liegt das???

zusammenfalten · markieren

Delphi-Quellcode:

			type

  tzz = array [1..100] of integer;

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    ListBox1: TListBox;

    ListBox2: TListBox;

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

   zz: tzz;

implementation

{$R *.dfm}

procedure zufall(var zz:tzz);

var

i:integer;

begin

for i:= 1 to 100 do

begin

zz[i]:= random(150)+1;

Form1.ListBox1.Items.Add(IntToStr(zz[i]));

end;

end;

procedure sortieren (zz:tzz);

var i,j,hilf:integer;

begin

for i:= 100 downto 1 do

for j:= 1 to i do

begin

if

zz[j]<zz[j-1] then

begin

hilf:= zz[j-1];

zz[j-1]:= zz[j];

zz[j]:= hilf;

Form1.ListBox2.Items.Add(IntToStr(zz[j]));

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

zufall(zz);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

sortieren(zz);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Wäre toll, wenn mir jemand weiter helfen könnte.
Danke

**Klaus01**

Welche Fehlermeldung, zur Laufzeit oder wenn Du Compilierst?
Wo hast Du die Variable "hilf" deklariert/definiert?

Grüße
Klaus

**Tormentor32**

Du hast deine Prozedur auch nicht Deklariert!

procedure Zufall(var zz:tzz); Das musst du in den Interface Teil schreiben!

Edit: Ach ja und Sortieren auch

**sirius**

zz[j]<zz[j-1] then Beim ersten Schleifendurchlauf ist j=1 und demnach j-1=0. Und es gibt kein zz[0]!

Btw: Ein bisschen Struktur tut deinem code auch ganz gut
Und demnächst könntest du den Sortierbutton auch so nennen, und nicht Button1!

Edit: @Tormentor: Nö, man muss nicht "deklarieren". Auch wenn die Struktur so, sagen wir, sehr anfängerlich aussieht, müssen tut man nicht

**ahnungsloser**

Hallo, ich hab den Fehler (unglaublich aber wahr!) dann selber gefunden...trotzdem danke, für die tipps!!

zusammenfalten · markieren

Delphi-Quellcode:

			procedure sortieren (zz:tzz);

var i,j,hilf:integer;

begin

  for i:= 20 downto 1 do

  for j:= 1 to i do

 begin

  if

   zz[j]<zz[j-1] then

    begin

      hilf:= zz[j-1];

      zz[j-1]:= zz[j];

      zz[j]:= hilf;

    end;

 end;

for i:= 1 to 20 do

 Form1.ListBox2.Items.Add(IntToStr(zz[i]));

end;

jetzt werden die zahlen sortiert....müsste ich denn anstatt zz[j]<[zz[j-1] eher schreiben zz[j]>zz[j+1], damit j nicht 0 werden kann...aber dann werden die Zahlen absteigend sortiert...also 20 10 5 1 und nicht 1 5 10 20....Ach so und das mit dem anfängerlich trifft voll und ganz zu *g*

**Klaus01**

Du könntest mit j = 2 in der Schleife anfangen,
dann wäre j-1 = 1;

Grüße
Klaus

**Jelly**

Du bist Dir schon bewusst dass der Bubblesort nicht gerade prozessorschonend ist

Anstatt das Sortieren selbst zu schreiben, kannst du auch eine TList nutzen, anstatt eines arrays. Listen können beliebig viele Objekte aufnehmen. Und List implementiert bereits eine Sortier Methode, die als einzigen Parameter eine Funktion braucht, die einen Integer zurückliefert beim Vergleich von 2 Werten. (sozusagen das Pendant zu IComparable Interface in .NET). Hier einfach mal ein Beispiel, damits klarer wird. Zwar etwas aufgebauscht, aber damit wird dann schnell verständlich, dass das mit beliebigen Objekten in der List funktioniert, und nicht nur mit Integer:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TMyClass = class

  public

     Value : integer ;

  end ;

  TForm1 = class (TForm)

  // ...

  public

    List : TList ;

      end ;

implementation

procedure Compare (Item1, Item2 : TPointer) ;

var

 V1, V2 : integer ;

begin

     V1 := Item1(TMyClass).Value ;

     V2 := Item2(TMyClass).Value ;

     if V1 < V2 then

        Result := 1

     else if V1 > V2 then

        Result := -1 

     else

        Result := 0 ;

end ;

end.

Die Liste sortieren geht dann ganz leicht mit
List.Sort (Compare) ; Bei diesem Sortierverfahren ist der QuickSort Algorythmus implementiert, der wesentlich effektiver arbeitet als BubbleSort.

Ich find die Methode über TList sehr elegant.

**ahnungsloser**

Okis vielen Dank nochmal und schönen Tag noch!!!

zahlen sortieren

zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Re: zahlen sortieren

Forumregeln

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 Re: zahlen sortieren 7. Mai 2007, 09:28 Welche Fehlermeldung, zur Laufzeit oder wenn Du Compilierst? Wo hast Du die Variable "hilf" deklariert/definiert? Grüße Klaus Klaus
	Zitat

Tormentor32 Registriert seit: 27. Okt 2005 Ort: Düsseldorf 369 Beiträge Delphi XE5 Professional	#3 Re: zahlen sortieren 7. Mai 2007, 09:30 Du hast deine Prozedur auch nicht Deklariert! procedure Zufall(var zz:tzz); Das musst du in den Interface Teil schreiben! Edit: Ach ja und Sortieren auch Richard Mahr
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#6 Re: zahlen sortieren 7. Mai 2007, 14:52 Du könntest mit j = 2 in der Schleife anfangen, dann wäre j-1 = 1; Grüße Klaus Klaus
	Zitat

ahnungsloser Registriert seit: 7. Mai 2007 4 Beiträge	#8 Re: zahlen sortieren 7. Mai 2007, 16:10 Okis vielen Dank nochmal und schönen Tag noch!!!
	Zitat