Thema: Delphi Telefonbuch

Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#56

Re: Telefonbuch

  Alt 9. Okt 2009, 20:26
Zitat von funkuchn:
Ja das mit dem Namen habe ich schon bemerkt
und mit den Zahlen müsste doch eig ähnlich funktionieren ?!
Genau. Im moment überprüftst du, ob in der String-Liste bei den geraden Einträgen ein String drin ist, der gleich dem gesuchten Namen ist.

Jetzt müsstest du noch programmieren, dass in der String-Liste die ungeraden Einträge nach der Telefonnummer durchsucht werden.

Delphi-Quellcode:
var SuchName:String;
    i,AnzahlEintraege:integer;
begin
 SuchName:=edit6.text;

 //Einträge in unserem Telefonbuch berechnen:
 AnzahlEintraege:=Telefonbuch.Count div 2; // geteilt durch 2, da zwei Strings pro Person gespeichert werden: Name, Telefonnummer

 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;
mit i*2 lesen wir nur die geraden Einträge aus. mit i*2+1 lesen wir nur ungerade Einträge aus. Hast du eine Idee, wie man die Schleife umprogrammieren kann, damit jetzt die Telefonnummern durchsucht werden?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat