Delphi Telefonbuch

[joe.fresh]

Hi!
Ich muss für die Schule ein Adressbuch in Delphi entwerfen
dass die eingelesenen Daten in einem File speichert.
Ich komme aber beim Einlesen Löschen und Abrufen nicht weiter.
Kann mir jemand helfen?

Danke im Voraus!

Joe.Fresh

Delphi-Quellcode:

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.

[edit=Luckie]CCode-Tags durch Delphi-Tags ersetzt.[/edit]