Thema: Delphi Telefonbuch

Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

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

Re: Telefonbuch

  Alt 8. Okt 2009, 19:09
Okay, einen Ansatz. (wobei ich hier eine leicht andere Variante verfolge als DaddyH, sry)

Du deklarierst dir unter Private eine Variable:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    Telefonbuch:Tstringlist;
  public
    { Public-Deklarationen }
  end;
Wenn dein Programm startet, musst du in der FormCreate Procedure die StringList ersteinmal "erstellen":

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
   Telefonbuch:=TStringList.create;
end;
Dann brauchst du eine Procedure, um Einträge in dein Telefonbuch (in die Stringlist) einzufügen:

Delphi-Quellcode:
procedure TForm1.Hinzufügen_Zu_Telefonbuch(EinName:String;EineTelefonnummer:string);

begin

  EinTelefonbuch.Add(EinName);
  EinTelefonbuch.Add(EineTelefonnummer);

end;
Jedes Mal, wenn du EinTelefonbuch.Add aufrufst, wird ein weiterer Eintrag in die StringList geschrieben.
D.h. ein Beispiel:

Am Anfang ist deine StringList leer. Jetzt rufst du folgende Procedure auf:

Hinzufügen_Zu_Telefonbuch('Hans Meiser','0190-99999');

Jetzt steht in der StringList:

0.: Hans Meiser
1.: 0290-99999


Meine Frage an dich: Man kann mit Eckigen Klammern auf die einzelnen Einträge der Stringlist zugreifen:

EinTelefonbuch[0] ist in unserem Fall jetzt = "Hans Meiser".

Kannst du eine FUnktion basteln, die aus dem Telefonbuch nun wieder Name und Telefonnummer ausließt? Also, wenn ich dir sage: Suche mir bitte zur zweiten Person im Telefonbuch Namen und Telefonnummer... wie könnte das gehen?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat