File of eigener Typ

[eragon123]

Ja das ist so deklariert. Das mit dem setlength merk ich mir danke . Hier einfach mal der gesamt bisherige Text.

Delphi-Quellcode:

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.