unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
ausgabe: TButton;
schliessen: TButton;
ListBox1: TListBox;
Edit2: TEdit;
Edit3: TEdit;
adden: TButton;
delete: TButton;
Image1: TImage;
Edit4: TEdit;
Label3: TLabel;
Bevel1: TBevel;
Button1: TButton;
Edit5: TEdit;
procedure ausgabeClick(Sender: TObject);
procedure schliessenClick(Sender: TObject);
procedure deleteClick(Sender: TObject);
procedure addenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
type
teintrag=Record
name,vorwahl,nummer,email:
string
end;
telefonbuch =
file;
var
telebuch:
array[1..300]
of teintrag;
speicherdatei:telefonbuch;
procedure TForm1.ausgabeClick(Sender: TObject);
//Var teledenis:teintrag;
begin
end;
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.deleteClick(Sender: TObject);
var i:integer;
begin
if listbox1.itemindex = -1
then showmessage ('
Bitte erst Eintrag markieren')
else showmessage ('
Eintrag gelöscht');
for i:=0
to 300
do
begin
if listbox1.itemindex = i
then listbox1.items.delete (i);
end;
end;
procedure TForm1.addenClick(Sender: TObject);
var hilf:
string ;i:integer;
begin
hilf:=edit1.text;
if edit1.text='
'
then showmessage ('
Bitte erst den Namen eingeben')
else listbox1.items.add(hilf);
listbox1.items.count;
with telebuch[i]
do
end;
end.