Datenbank mit Fehler in Read Anweisung

[Maja Jessica]

Hi,

mit kleinen Modifikationen geht es zumindest, es werden Datensätze angezeigt, wobei aber noch so einiges zu beachten wäre:
- close ohne Nachfrage ob speichern?
- Probleme wenn du irgendwann mehr als 100 Einträge machen möchtest
- Bei vor/zurück wird immer der aktuelle Satz ins Array übertragen (ungewollte Änderungen abfangen)?
- Vorbelegung mit open-/savedialog1.InitialDir

Delphi-Quellcode:

const max=100;

var p:integer;
    daten:tdaten;
    datenfeld:array[1..max]of tdaten;
    datendatei: file of tdaten;
{$R *.dfm}

procedure TForm1.ArrayinMaske;
begin
  daten:=datenfeld[p];
  edit1.text:=daten.clanname;
  edit2.text:=daten.clankuerzel;
  edit6.text:=daten.homepage;
  combobox1.text:=daten.spiel;
  edit3.text:=daten.kontaktname;
  edit4.Text:=inttostr(daten.icq);
  edit5.Text:=daten.msn;
  memo1.Text:=daten.kommentar;
  statusbar1.SimpleText:='Position: '+inttostr(p) + '/' + inttostr(max);
end;

procedure TForm1.MaskeinArray;
begin
   daten.clanname:=edit1.text;
   daten.clankuerzel:=edit2.text;
   daten.homepage:=edit6.text;
   daten.spiel:=combobox1.Text;
   daten.kontaktname:=edit3.text;
   daten.icq:=strtoint(edit4.text);
   daten.msn:=edit5.Text;
   daten.kommentar:=memo1.text;
   datenfeld[p]:=daten;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  p:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MaskeinArray;
  if p<max then inc(p);
    ArrayinMaske;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MaskeinArray;
  if p>1 then dec(p);
    ArrayinMaske;
end;

procedure TForm1.ButtonOeffnenClick(Sender: TObject);
var zaehler:integer;
begin
  if opendialog1.execute then
  begin
    assignfile(datendatei, opendialog1.filename);
    reset(datendatei);
    for zaehler:=1 to max do
    begin
      read(datendatei,daten);
      datenfeld[zaehler]:=daten;
    end;
    closefile(datendatei)
    p:=1;
    ArrayInMaske;
  end;
end;

procedure TForm1.speichernClick(Sender: TObject);
var zaehler:integer;
begin
  if savedialog1.execute then
  begin
    assignfile(datendatei,savedialog1.filename);
    rewrite(datendatei);
    for zaehler:=1 to max do
    begin
      daten:=datenfeld[zaehler];
      write(datendatei,daten);
    end;
    closefile(datendatei)
  end;
end;

procedure TForm1.beendenClick(Sender: TObject);
begin
  // Abfrage speichern???
  close;
end;

Auch vom Grundsatz her würde ich es wie im Tut mit direkten Zugriff auf das Datenfile (seek) machen, damit wäre dann auch das Problem mit dem Array und Max gelöst.

MJ