Telefonbuch

[alleinherrscher]

Zitat von funkuchn:

okay, mein Versuch ^^:

Delphi-Quellcode:

for i:=0 downto AnzahlEintraege-1 do
 Tauschindex:=j; 
 for i[j]:=0 downto AnzahlEintraege-1 do
 If Telefonbucheintrag[2*i]>Telefonbucheintrag[2*Tauschindex];
 then TauschIndex:=i;
 Tausche_Telefonbucheintrag(j,Tauschindex);

ich weiß, ich bin unfähig >.<

Warum...is doch schonmal ein anfang...und jetzt basteln wir es so lang zurecht, bis es funktioniert

1) ich weiß, ich hab oben die schleife mit downto gemacht...das war pädagogisch nicht sehr klug. Mit Downto zählst du die Indizes runter. Du hast also dem Compiler gerade gesagt: "Setze i=0 und ziehe so lange 1 ab, bis i=AnzahlEinträge (also z.B. 5) ist"... du siehst, das kann schonmal nicht funktionieren. Wir verwenden daher besser "Setze i=0 und addiere so lange 1, bis i=AnzahlEinträge" ist.

2) Die If Syntax is falsch. es geht immer so:

  if Bedingung then Anweisung; und sonst ist alles, bis auf eine Blockanweisung (Begin...End) richtig.

Ich poste dir jetzt mal die fertige funktion:

Delphi-Quellcode:

procedure TForm1.SortiereTelefonbuch;
var TauschIndex:integer;
    Anzahl,i,j:integer;
begin


 Anzahl:=Telefonbuch.Count div 2;

  for j:= 0 to Anzahl-1 do
   begin
   TauschIndex:=j;
    for i:= j to Anzahl-1 do
      if CompareStr(Telefonbuch[2*i],Telefonbuch[2*TauschIndex])<0  then
       TauschIndex:=i;
    TauscheTelefonbuchEintrag(TauschIndex,j);
   end;

 memo1.text:=Telefonbuch.Text;


end;

//edit:
Überleg dir mal, warum i[j] keinen Sinn macht, aber Telefonbuch[i] schon!

//edit2:

Und wie binden wir jetzt die beiden Prozeduren ein?

Also zunächst musst du die Prozeduren noch im Private Bereich deklarieren:

Delphi-Quellcode:

{...}
  private
    { Private-Deklarationen }
    Telefonbuch:TStringList;
    procedure TauscheTelefonbuchEintrag(Index1,Index2:integer);
    procedure SortiereTelefonbuch;
{...}

Und jetzt rufen wir die Prozedur SortiereTelefonbuch auf, wenn wir auf Button4 klicken:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin

 SortiereTelefonbuch;

 label5.visible:=true;
 edit5.visible:=true;
 button10.visible:=true;
 label2.visible:=false;
 edit4.visible:=false;
 button9.visible:=false;
 edit1.visible:=false;

 edit3.visible:=false;
 label4.visible:=false;

 label7.visible:=false;
 button8.visible:=false;
end;