Hallo Leute,
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
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;