Anonymous

//  Hinzufügen der einträge

procedure TForm1.HinzufuegenClick(Sender: TObject);
begin
ListBox1.Items.Add(NameEdit.Text+', '+VornameEdit.Text+', '+'Tel.:'+TelefonEdit.Text+', '+'PLZ:'+plzedit.Text+', '+'Ort:'+ortedit.Text+', '+'Mail:'+Mailedit.Text);
NameEdit.Text:='';
VornameEdit.Text:='';
TelefonEdit.Text:='';
plzedit.Text:='';
ortedit.Text:='';
mailedit.Text:='';
end;


// Klicke auf eintrag in listbox und der eintrag soll zurück in die editfelder geschrieben werden

procedure TForm1.ListBox1Click(Sender: TObject);
var s: string;
    p: Integer;
begin
if Listbox1.ItemIndex>-1
then
begin
s:=Listbox1.Items[Listbox1.ItemIndex];
p:=Pos(',',s);
NameEdit.Text:=Copy(s,1,p-1);
Delete(s,1,p+1);
p:=Pos(',',s);
VornameEdit.Text:=Copy(s,1,p-1);
Delete(s,1,p+6);
TelefonEdit.Text:=s;
end;
end;