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?