Home » Tutorials » Datenspeicherung » Typisierte Dateien

Typisierte Dateien

Navigieren

Nun gehen wir daran, unsere Navigationsbuttons mit Quellcode zu hinterlegen:

procedure TForm1.Button1Click(Sender: TObject);  //erster Datensatz
begin
  positionieren(0);
end;

procedure TForm1.Button2Click(Sender: TObject); //voriger Datensatz
begin
  positionieren(FilePos(datei)-2);
  //Nach dem Lesen befindet sich der Datenzeiger HINTER dem aktuellen
  // Datensatz; deshalb muss um ZWEI nach vorne gegangen werden
end;

procedure TForm1.Button3Click(Sender: TObject); //nächster Datensatz
begin
  positionieren(FilePos(datei));
end;

procedure TForm1.Button4Click(Sender: TObject); //letzter Datensatz
begin
  positionieren(FileSize(datei)-1);
end;