Telefonbuch mit listbox

[simon19881]

Hallo Leute, :o
ich hoffe ihr könnt mir helfen. Ich möchte ein Telefonbuch erstellen, welches die Listbox automatisch nach dem Alpfabeth sortiert
und ich brauche eine lösung wie ich den / auf der 5. stelle einfügen kann bei der telefonnummer :wall: :gruebel:
Danke schonmal für eure hilfe.....
Das habe ich bisher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:integer;  i:string;
begin
listbox1.Items.Add(('Name: ')+(edit1.text)+(' ')+(edit3.Text));
listbox1.Items.Add(('Tel.:')+(edit4.Text));
listbox1.Items.Add(('Adresse:')+(' ')+(edit5.text));


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Listbox1.Items.SaveToFile(Edit2.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.Items.LoadFromFile(Edit2.text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Close;
end;

[Luckie]

Guck dir mal die Funktion Insert an.

[simon19881]

ja und wie mach ich das mit insert ich hab wirklich wenig erfahrung mit dem programmieren
bitte gib mir mal ein beispiel
gruß simon

[DeddyH]

ListBox.Items.Add fügt den Eintrag am Ende ein, ListBox.Items.Insert(String,Index) fügt den String an Position Index (Index beginnt bei 0) ein.

[lbccaleb]

Zitat:

Zitat von simon19881

Hallo Leute, :o
ich hoffe ihr könnt mir helfen. Ich möchte ein Telefonbuch erstellen, welches die Listbox automatisch nach dem Alpfabeth sortiert

meinst ungefähr sowas:

Delphi-Quellcode:

listbox1.sorted := true;

mfg

[DeddyH]

Das wird nicht funktionieren, da dann alle Namen, alle Vornamen etc. untereinander stehen.

[Thorben_Ko]

Ich würde das aber auch net in ne Listbox packen, ein StrinGrid wäre doch viel besser. Oder eine ListBox welche dann die anderen Daten hinterher ausliest und in Edits darstellt.

Aber zurück zum thema:

ich würde die Daten in eine reocrd packen, dann von der TList sortieren lassen. und nach dem Sortieren wieder in die ListBoX eintragen...

Thorben

[simon19881]

Jo sowas meine ich aber so das vorname, nachname, telenr.,Adresse untereinander stehen bleiben
so das delpfi die namen sortiert und der rest bei den namen stehen bleibt
thx

[simon19881]

Zitat:

ich würde die Daten in eine reocrd packen, dann von der TList sortieren lassen. und nach dem Sortieren wieder in die ListBoX eintragen...

WIE???? :-D

[Luckie]

Er will keinen Eintrag an eine vorgegebenen Stelle in der Listbox einfügen, sondern in der Zeichenkette mit der Telefonnummer an der fünften Stelle einen "/" einfügen. Und das tut die Funktion Insert. Hätte ich die Methode Insert von TItems gemeint, hätte ich das auch so geschrieben.