unit mMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TNote = 1..6;
buch =
record
Titel:
string[50];
Autor:
string[50];
Erscheinungsjahr: TDate;
DatumEintrag: TDate;
ISBN: Integer;
Bewertung: TNote;
Kommentar:
string[100];
Privat: Boolean;
end;
TBuecherliste =
array of buch;
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure datenladen;
procedure datenspeichern;
procedure datenzeigen(SortiertNach:
string);
procedure encrypt(schluessel:
string);
procedure decrypt(schluessel:
string);
procedure neuerWert;
procedure WertLoeschen;
procedure WertAendern();
function benutzer: Boolean;
function passwort: Boolean;
function speicherort: Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
Buecher:
array of buch;
passwort:
string;
benutzer:
string;
speicherort:
string;
Datei:
file of buch;
implementation
{$R *.dfm}
procedure TForm1.datenladen;
// Alle Daten aus der Datei einlesen
var I: Integer;
begin
AssignFile(Datei,speicherort);
// Datei anlegen // FEHLER hier
Reset(Datei);
SetLength(Buecher,0);
// Bücher zurücksetzen
i := 0;
while not Eof(Datei)
do // Daten einlesen
begin
SetLength(Buecher,Length(Buecher)+1);
Read(Datei,Buecher[i]);
Inc(i);
end;
CloseFile(Datei);
end;
procedure TForm1.datenspeichern;
// Alle Daten speichern
var I: Integer;
begin
AssignFile(Datei,speicherort);
// Datei anlegen // FEHLER HIER
Rewrite(Datei);
i := 0;
while not Eof(Datei)
do // Daten schreiben
begin
Writeln(Datei,Buecher[i]);
// FEHLER HIER
Inc(i);
end;
CloseFile(Datei);
end;
procedure TForm1.datenzeigen(SortiertNach:
string);
begin
end;
procedure TForm1.decrypt(schluessel:
string);
begin
end;
procedure TForm1.encrypt(schluessel:
string);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
var clickedok: Boolean;
begin
// Sachen abfragen
end;
procedure TForm1.neuerWert;
begin
end;
function TForm1.passwort: Boolean;
// Passwort erfragen
begin
Result := InputQuery('
Eingabe','
Benutzernamen eingeben',passwort);
// Wenn ok gedrückt wird = true; bei abbrechen false
end;
function TForm1.speicherort: Boolean;
// Speicherort erfragen
begin
Result := InputQuery('
Eingabe','
Benutzernamen eingeben',speicherort);
end;
function TForm1.benutzer: Boolean;
// Benutzer erfragen
begin
Result := InputQuery('
Eingabe','
Benutzernamen eingeben',benutzer);
end;
procedure TForm1.WertAendern;
begin
end;
procedure TForm1.WertLoeschen;
begin
end;
end.