unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
type
TForm1 =
class(TForm)
LaDateisatz: TLabel;
EdName: TEdit;
EdVorname: TEdit;
EdStrasse: TEdit;
EdPLZ: TEdit;
EdTelefon: TEdit;
EdOrt: TEdit;
LaName: TLabel;
LaVorname: TLabel;
LaStrasse: TLabel;
LaPLZORT: TLabel;
Telefon: TLabel;
Budateineu: TButton;
Budateioeffnen: TButton;
BuDatensatzhinzu: TButton;
Buzurueck: TButton;
Buvorwaerts: TButton;
Ladatei: TLabel;
BuBeenden: TButton;
Label3: TLabel;
BuTabelle: TButton;
Button1: TButton;
RGsuchen: TRadioGroup;
procedure BuBeendenClick(Sender: TObject);
procedure BudateineuClick(Sender: TObject);
procedure BudateioeffnenClick(Sender: TObject);
procedure BuzurueckClick(Sender: TObject);
procedure BuvorwaertsClick(Sender: TObject);
procedure BuDatensatzhinzuClick(Sender: TObject);
procedure BuTabelleClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
T_Adresse=Record
Name:
String[20];
Vorname:
String[20];
Strasse:
String[30];
PLZ:
String[7];
Ort:
String[15];
Telefon :
String[20];
end;
T_Datei =
file of T_Adresse;
var
Form1 : TForm1;
Adresse : T_Adresse;
f : T_Datei;
Dateiname :
String;
ClickedOK : Boolean;
Satznummer : Integer;
implementation
uses Unit2;
procedure liesadresse(
Var Adresse:T_Adresse);
begin
with Adresse
do
begin
Name := Form1.EdName.Text;
Vorname := Form1.EdVorname.Text;
Strasse := Form1.EdStrasse.Text;
PLZ := Form1.EDPLZ.Text;
Ort := Form1.EdOrt.Text;
Telefon := Form1.EdTelefon.Text;
end;
end;
{$R *.dfm}
procedure TForm1.BuBeendenClick(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.BudateineuClick(Sender: TObject);
begin
Dateiname := '
';
ClickedOK:=InputQuery('
Neue Datei anlegen','
Name der neuen Datei(Vollständiger Pfad)',Dateiname);
if clickedOk
then
begin
Assignfile(f,Dateiname);
rewrite(f);
LaDatei.Caption := '
Datei ' + Dateiname + '
wurde angelegt';
end;
end;
procedure TForm1.BudateioeffnenClick(Sender: TObject);
begin
Dateiname := '
';
ClickedOK := InputQuery('
Vorhandene Datei öffnen','
Name der zu öffnenden Datei(Vollständiger Pfad)', Dateiname);
if ClickedOK
then
begin
AssignFile(f,Dateiname);
Reset(f);
LaDatei.Caption := '
Datei '+ Dateiname + '
wurde geöffnet !';
end;
end;
procedure TForm1.BuzurueckClick(Sender: TObject);
begin
if Satznummer > 0
then
begin
Satznummer:= Satznummer - 1;
LaDateisatz.Caption := '
Datensatz-Nr.: ' + IntToStr(Satznummer);
Application.ProcessMessages;
seek(f,Satznummer);
read(f,Adresse);
with Adresse
do
begin
EdName.Text :=
Name;
EdVorName.Text := Vorname;
EdStrasse.Text := Strasse;
EdPLZ.Text := PLZ;
EdOrt.Text := Ort;
EdTelefon.Text := Telefon;
end
end
else Label3.Caption := '
Sie sind wieder am Anfang!';
Application.ProcessMessages;
end;
procedure TForm1.BuvorwaertsClick(Sender: TObject);
begin
if not eof(f)
then
begin
read(f,Adresse);
inc(Satznummer);
LaDateisatz.Caption := '
Datensatz-Nr.: ' + IntToStr(Satznummer);
Application.ProcessMessages;
with Adresse
do
begin
EdName.Text :=
Name;
EdVorname.Text := Vorname;
EdStrasse.Text := Strasse;
EdPLZ.Text := PLZ;
EdOrt.Text := Ort;
EdTelefon.Text := Telefon;
end
end
else
Label3.Caption := '
Sie sind am Dateiende angekommen!!!';
end;
procedure TForm1.BuDatensatzhinzuClick(Sender: TObject);
begin
liesadresse(Adresse);
write(f,Adresse);
end;
procedure TForm1.BuTabelleClick(Sender: TObject);
begin
Form2 := TForm2.Create(Form1);
Form2.Show;
Form2.Tabelle.Cells[0,0] := '
';
Form2.Tabelle.Cells[1,0] := '
Name';
Form2.Tabelle.Cells[2,0] := '
Vorname';
Form2.Tabelle.Cells[3,0] := '
Strasse';
Form2.Tabelle.Cells[4,0] := '
PLZ';
Form2.Tabelle.Cells[5,0] := '
Ort';
Form2.Tabelle.Cells[6,0] := '
Telefon';
while not eof(f)
do
begin
read(f,Adresse);
Satznummer := Satznummer + 1;
with Adresse
do
begin
Form2.Tabelle.Cells[0,Satznummer] := IntToStr(Satznummer);
Form2.Tabelle.Cells[1,Satznummer] :=
Name;
Form2.Tabelle.Cells[2,Satznummer] := Vorname;
Form2.Tabelle.Cells[3,Satznummer] := Strasse;
Form2.Tabelle.Cells[4,Satznummer] := PLZ;
Form2.Tabelle.Cells[5,Satznummer] := Ort;
Form2.Tabelle.Cells[6,Satznummer] := Telefon;
end
end
end;