Hallo, um eine Record-Struktur in eine Datei zu speichern,
1. Record definieren:
Delphi-Quellcode:
type
TKoordRec = record
x,
y: Double;
end;
2. dann die Variablen deklarieren (global oder in Procedure):
Delphi-Quellcode:
var
Koordinate: TKoordRec; // für die Zwischenspeierung der Werte
KoordinatenDatei: File of TKoordRec; // typisierte Datei, hier werden die Werte mit Hilfe der Records gespeichert
3. Werte in Datei schreiben:
Delphi-Quellcode:
procedure MachnuwasmitdenKoordinaten;
begin
AssignFile(KoordinatenDatei, Dateiname); // Datei zuweisen
Reset(KoordinatenDatei); // Datei öffnen
Seek(KoordinatenDatei, FileSize(KoordinatenDatei)); // Datensatzzeiger an das Ende der Datei bewegen
Koordinate.x := 1;
Koordinate.y := 2.34567;
Write(KoordinatenDatei, Koordinate); // die aktuellen Werte speichern
CloseFile(KoordinatenDatei); // Datei schließen
end;
4. zum Lesen aus der Datei:
Delphi-Quellcode:
procedure NuliesdieKoordinaten(welchenDatensatz: Integer);
begin
AssignFile(KoordinatenDatei, Dateiname); // Datei zuweisen
Reset(KoordinatenDatei); // Datei öffnen
Seek(KoordinatenDatei, welchenDatensatz-1);// Datensatzzeiger an gewünschte Position bewegen
Read(KoordinatenDatei, Koordinate); // die aktuellen Werte lesen
CloseFile(KoordinatenDatei); // Datei schließen
end;
Mit Schaltflächen (<< und >>) zum "Browsen" in der Datei kann man eine simple Datenbank erstellen, die jeweils nach ButtonClick den nächsten bzw. vorherigen Datensatz aus der Datei liest und darstellt.
Als Anhang habe ich das Beispiel bereitgestellt, wie ich es in der Vorlesung gebracht habe.
Gruß
Michael