unit uUnit2;
interface
type
TEinzelteile =
record
TNummer,Preis:integer;
Bezeichnung,Verwendung:
string[250];
end;
TKundenstamm =
record
Name,Strasse,Ort:
string[100];
Hausnummer,Postleitzahl:integer;
end;
Tearray=Array[0..999]
of TEinzelteile;
Tkarray=Array[0..999]
of TKundenstamm;
TFirma=class
earray:Tearray;
karray:Tkarray;
fn:
string[9];
Einzelteile:
File of TEinzelteile;
Einzelteile:TEinzelteile;
Kundenstamm:
File of TKundenstamm;
Kundenstamm:TKundenstamm;
procedure speichern(fn:
string);
procedure neu (fn:
string);
procedure oeffnen (fn:
string);
procedure schliessen;
procedure vor;
procedure zurueck;
end;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
{$R *.dfm}
procedure oeffnen (fn:
string)TFirma;
begin
fn:'
Einzelteile.dat';
assignfile(Einzelteile,fn);
if fileexists ('
Einzelteile.dat')
then reset(Einzelteile);
Einzelteile.TNummer:=Edit1.Text;
Einzelteile.Preis:=Edit2.Text;
Einzelteile.Bezeichnung:=Edit3.Text;
Einzelteile.Verwendung:=Edit4.Text;
else ReWrite(Einzelteile);
end;
procedure neu (fn:
string);
begin
fn:'
Einzelteile.dat';
assignfile(Einzelteile,fn);
seek(eof(einzelteile));
rewrite(Einzelteile);
end;
procedure speichern(fn:
string);
begin
fn:'
Einzelteile.dat';
assignfile(Einzelteile,fn);
Einzelteile.TNummer:=inttostr(Edit1.Text);
Einzelteile.Preis:=inttostr(Edit2.Text);
Einzelteile.Bezeichnung:=Edit3.Text;
Einzelteile.Verwendung:=Edit4.Text;
write(Einzelteile,earray);
end;
procedure vor;
begin
seek(Einzelteile,filepos(Einzelteile));
Einzelteile.TNummer:=inttostr(Edit1.Text);
Einzelteile.Preis:=inttostr(Edit2.Text);
Einzelteile.Bezeichnung:=Edit3.Text;
Einzelteile.Verwendung:=Edit4.Text;
end;
procedure zurueck;
begin
Seek(Einzelteile, FilePos(Einzelteile)-2);
Einzelteile.TNummer:=inttostr(Edit1.Text);
Einzelteile.Preis:=inttostr(Edit2.Text);
Einzelteile.Bezeichnung:=Edit3.Text;
Einzelteile.Verwendung:=Edit4.Text;
end;
procedure schliessen;
begin
CloseFile(Einzelteile);
close
end;
end.