Telefonbuch

[funkuchn]

okay, hier ist mal mein Quelltext,ich denke mal, es ist ersichtlich, was passiert:
Es ist erstmal ein Ansatz, ich konnte mich auch noch nicht intensiver beschäftigen, weil ich 2 wochen total krank war, jetzt soll ich das aber sonntag abgeben

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin
 memo1.lines.clear;
 edit1.text:='';
 edit2.text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.visible:=true;
 edit2.visible:=true;
 edit3.visible:=true;
 label4.visible:=true;
 label6.visible:=true;
 label7.visible:=true;
 button8.visible:=true;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 edit1.visible:=false;
 edit2.visible:=false;
 edit3.visible:=false;
 edit4.visible:=false;
 edit5.visible:=false;
 edit6.visible:=false;
 label4.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
 label2.visible:=false;
 label5.visible:=false;
 label3.visible:=false;
 button8.visible:=false;
 button9.visible:=false;
 button10.visible:=false;
 button11.visible:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 label2.visible:=true;
 edit4.visible:=true;
 button9.visible:=true;
 edit1.visible:=false;
 edit2.visible:=false;
 edit3.visible:=false;
 label4.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
 button8.visible:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 label5.visible:=true;
 edit5.visible:=true;
 button10.visible:=true;
 label2.visible:=false;
 edit4.visible:=false;
 button9.visible:=false;
 edit1.visible:=false;
 edit2.visible:=false;
 edit3.visible:=false;
 label4.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
 button8.visible:=false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 label3.visible:=true;
 edit6.visible:=true;
 button11.visible:=true;
 label5.visible:=false;
 edit5.visible:=false;
 button10.visible:=false;
 label2.visible:=false;
 edit4.visible:=false;
 button9.visible:=false;
 edit1.visible:=false;
 edit2.visible:=false;
 edit3.visible:=false;
 label4.visible:=false;
 label6.visible:=false;
 label7.visible:=false;
 button8.visible:=false;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var h: string;
begin
 h:='h:\Telefonbuch.txt';
 memo1.lines.loadfromfile(h);
end;

procedure TForm1.Button8Click(Sender: TObject);
 var h: string;
begin
 h:='h:\Telefonbuch.txt';
 edit1.text.SaveToFile(h);
end;