Anonymous

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;

procedure TForm1.Alles_LoeschenClick(Sender: TObject);
begin
if MessageDlg('Wirklich alle Einträge löschen?', mtWarning,[mbNo, mbYes],0)=mrYes then ListBox1.Items.Clear;
end;

procedure TForm1.LoeschenClick(Sender: TObject);
begin
if ListBox1.ItemIndex>-1 then Listbox1.Items.Delete(Listbox1.ItemIndex);
end;

procedure TForm1.SpeichernClick(Sender: TObject);
begin
if SaveDialog1.Execute then ListBox1.Items.SaveToFile(SaveDialog1.Filename);
//ListBox1.Items.SaveToFile('telefon.txt');
end;

procedure TForm1.LadenClick(Sender: TObject);
begin
if OpenDialog1.Execute then ListBox1.Items.LoadFromFile(OpenDialog1.Filename);
//ListBox1.Items.LoadFromFile('telefon.txt');
end;

procedure TForm1.AbbruchClick(Sender: TObject);
begin
if MessageDlg('Wollen Sie das Programm wirklich beenden?', mtWarning, [mbNo,mbYes],0)=mrYes then halt;
end;


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;

procedure TForm1.AendernClick(Sender: TObject);
begin
if ListBox1.ItemIndex<>-1
then
begin ListBox1.Items.Insert(ListBox1.ItemIndex,NameEdit.Text+', '+VornameEdit.Text+', Tel.:'+TelefonEdit.TExt+', '+'PLZ:'+plzedit.Text+', '+'Ort:'+ortedit.Text+', '+'Mail:'+Mailedit.Text);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end
else ShowMessage('Es wurde kein Eintrag zum Ändern markiert');
end;


procedure TForm1.SuchenClick(Sender: TObject);
var i: Integer;
    Gefunden: Boolean;
    Suchwort: string;

begin
Suchwort:=InputBox('Suchen nach einem Merkmal', 'Wonach soll gesucht werden?','');
if Suchwort<>''then
begin
Gefunden:=false;
i:=-1;
while (i<Listbox1.Items.Count-1) and not gefunden do
begin
Inc(i);
if Pos(Suchwort,ListBox1.Items[i])>0 then Gefunden:=True;
end;
if Gefunden
then ListBox1.ItemIndex:=i
else ShowMessage('Suchwort wurde nicht gefunden');
end;
end;

procedure TForm1.DruckenClick(Sender: TObject);
var Prn: TextFile;
    i,p: Integer;
    s: string;
    Name,Vorname,Leerstring,Rand :string[20];

begin
Leerstring:='                    ';
Rand:='        ';
AssignPrn(Prn);
Rewrite(Prn);
Printer.Canvas.Font.Name:='Courier New';
Printer.Canvas.Font.Size:=12;
WriteLn(Prn);
WriteLn(Prn);
WriteLn(Prn,'Telefonverzeichnis':45);
WriteLn(Prn);
WriteLn(Prn, Rand+'Name                Vorname             Telefon');
WriteLn(Prn);
for i:=0 to Listbox1.Items.Count-1 do
begin
s:=Listbox1.Items[i];
p:=Pos(',',s);
Name:=Copy(s,1,p-1);
Name:=Name+Leerstring;
Delete(s,1,p+1);
P:=Pos(',',s);
Vorname:=Copy(s,1,p-1);
Vorname:=Vorname+Leerstring;
Delete(s,1,p+6);
WriteLn(Prn,Rand+Name+Vorname+s);
end;
CloseFile(Prn);   
end;

end.