Abspeichern in einem Stream

[DGL-luke]

Hallo,

dazu musst du dir ein Datenformat überlegen.

- Typisierte Dateien
- Records
- XML
- Relationale Datenbank

Okay, Datenbank könnte ein klein wenig oversized sein... zu den ersten drei findest du genug hier in der DP.

Eine einfache Lösung mit Records wäre so:

Delphi-Quellcode:

type
  TVokabel = record
    Deutsch, Englisch: string[255];

  TVokabeln = array of TVokabel;

procedure Load(fname: string; out vokabeln: TVokabeln);
var
  i: Integer;
begin
  with TFileStream.Create(fname, fmOpenRead) do
  try
    Setlength(vokabeln, Size div sizeof(vokabeln));
    for i := 0 to high(vokabeln) do
      Read(vokabeln[i], sizeof(vokabeln));
  finally
    Free;
  end;
end;

Da ist jetzt nur das Laden drin - aber wenn du dich ein bisschen damit beschäftigst, solltest du auch recht schnell herausfunden, wie das speichern geht.

Und schau dir ruhig auch die anderen Möglichkeiten mal an.