unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Menus;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Edit5: TEdit;
Label5: TLabel;
Edit6: TEdit;
Label6: TLabel;
Edit7: TEdit;
Label7: TLabel;
Edit8: TEdit;
Label8: TLabel;
Edit9: TEdit;
Label9: TLabel;
Edit10: TEdit;
Label10: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TBuch =
class
public
Buchnummer,Erscheinungsjahr:integer;
Titel,Autor,Verlag,Auflage:
string;
function buchangaben:
string;
end;
TUnterhaltungsliteratur =
class (TBuch)
public
Inhaltsangabe:
string;
function Unterhaltungsliteraturangaben:
string;
end;
TFachbuecher =
class (TBuch)
public
Schlagworte:
string;
function Fachbuchangaben:
string;
end;
TSchulbuecher =
class (TBuch)
public
Klassenstufe:
string;
function Schulbuchangaben:
string;
end;
TAusleihe =
class (TBuch)
public
Name,Vorname,Klasse:
string;
function Ausleihangaben:
string;
end;
var
Form1: TForm1;
Buch:TBuch;
Unterhaltungsliteratur:TUnterhaltungsliteratur;
Fachbuecher:TFachbuecher;
Schulbuecher:TSchulbuecher;
Ausleihe:TAusleihe;
Stringgrid1:TStringGrid;
i:Integer;
x:Integer;
Buchangaben,Unterhaltungsangaben,Fachbuchangaben,Schulbuchangaben,
Ausleihangaben:
string;
implementation
{$R *.dfm}
function TBuch.buchangaben:
string;
begin
end;
function TUnterhaltungsliteratur.Unterhaltungsliteraturangaben:
string;
begin
end;
function TFachbuecher.Fachbuchangaben:
string;
begin
end;
function TSchulbuecher.Schulbuchangaben:
string;
begin
end;
function TAusleihe.Ausleihangaben:
string;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
buch:=TBuch.Create;
Unterhaltungsliteratur:=TUnterhaltungsliteratur.Create;
Fachbuecher:=TFachbuecher.Create;
Schulbuecher:=TSchulbuecher.Create;
Ausleihe:=TAusleihe.Create;
buch.Buchnummer:=strtoint(edit1.text);
buch.Erscheinungsjahr:=strtoint(edit6.Text);
buch.Titel:=(edit2.Text);
buch.Autor:=(edit3.text);
buch.Verlag:=(edit4.Text);
buch.Auflage:=(edit5.Text);
Unterhaltungsliteratur.Inhaltsangabe:=(edit7.Text);
Fachbuecher.Schlagworte:=(edit8.Text);
Schulbuecher.Klassenstufe:=(edit9.Text);
for x:=1
to Stringgrid1.RowCount-1
do
if Stringgrid1.Cells[i,x]='
'
then
stringgrid1.Cells[i,x]:=buch.Titel;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.