Telefonbuch

[funkuchn]

So da bin ich wieder und die Suchfunktion habe ich so umgeschrieben, funktion iert auch suer

Delphi-Quellcode:

begin
 SuchName:=edit6.text;
 AnzahlEintraege:=Telefonbuch.Count div 2;

 for i:=AnzahlEintraege-1 downto 0 do
     if Telefonbuch[i*2]=SuchName then
      begin
       showmessage(Suchname+' wurde gefunden. Die Telefonnummer lautet: '+Telefonbuch[i*2+1]);
      end
      else
     if Telefonbuch[i*2+1]=SuchName then
      begin
       showmessage(Suchname+'wurde gefunden. Der Name lautet:'+Telefonbuch[i*2]);
       end;

end;

jetzt brauch ich nur noch Tipps, wegen dem Sortieren, habe das jetzt mit Stringlist gemacht, aber das ist ja iwie doof, da ordnet der den Namen ja nicht mehr der Person zu und das sollte ja eigentlich so bleiben...Tipps?