Einfache read/write-record .dat-Datei in Delphi

Für einige Grund meine OpenID-Konto existiert nicht mehr, auch wenn ich es gestern. Aber trotzdem.

Brauche ich, um zu sparen, die Aufzeichnung von Daten in eine .dat-Datei. Ich habe versucht, eine Menge der Suche, aber es war alles im Zusammenhang mit Datenbanken und BLOB Dinge. Ich war nicht in der Lage zu konstruieren, die nichts von Ihr.

Habe ich den folgenden Eintrag

   type
   Scores = record
     name: string[50];
     score: integer;
   end;  

var rank: array[1..3] of scores;

Ich brauche nur eine einfache Möglichkeit zum speichern und Lesen die Daten aus .dat-Datei. Ich hatte das Buch auf, wie es zu tun, aber das ist in der Schule.

  • se das stackoverflow.com/q/3820996/654311
  • Sollten Sie Präfix Ihre Typen mit einem T. I. e. verwenden TScores wie der name des Typs und der Scores wie der name der Variablen.
InformationsquelleAutor Skeela87 | 2011-04-23
  1. 12

    Sollten Sie auch einen Blick auf die file of-Methode.

    Dies ist ein bisschen veraltet, aber es ist ein schöner Weg, um zu lernen, wie man mit Dateien arbeiten.

    Da Datensätze mit dynamischen arrays (einschließlich gewöhnliche Zeichenfolgen) können nicht gespeichert werden, um Dateien mit dieser Methode, unicode-Zeichenfolgen werden nicht unterstützt. Aber string[50] basiert auf ShortStrings und Ihre Aufzeichnung ist daher bereits nicht-unicode...

    In Datei schreiben

    var
  i: Integer;
  myFile: File of TScores;
begin
  AssignFile(myFile,'Rank.dat');
  Rewrite(myFile);

  try
    for i := 1 to 3 do
      Write(myFile, Rank[i]);
 finally
   CloseFile(myFile);
 end;
end;

    Lesen aus Datei

    var
  i: Integer;
  Scores: TScores;
  myFile: File of TScores;
begin
  AssignFile(myFile, 'Rank.dat');
  Reset(myFile);

  try
    i := 1;
    while not EOF(myFile) do 
    begin
      Read(myFile, Scores);
      Rank[i] := Scores;      //You will get an error if i is out of the array bounds. I.e. more than 3
      Inc(i);
    end;
  finally
   CloseFile(myFile);
  end;
 end;
    • +1 ich glaube, das ist das, was er braucht für die Schule, die die meisten grundlegenden db-Konzept
    • Ja, das geht. Ich danke Ihnen sehr. Sehr einfach ist.
    • Nicht wirklich ein DB-Konzept, nur flach binary Datensatz Persistenz auf der Festplatte. Vielleicht die Urahnen benötigen, oder die früheste bekannte Art und Weise zu tun binäre Dauerhaftigkeit in der Geschichte der software-Entwicklung. Diese syntax geht den ganzen Weg zurück zu Wirth ' s pascal-syntax, und wurde sehr sehr Häufig in den guten alten Tagen, als ich anfing mit Turbo Pascal für DOS.
    InformationsquelleAutor Jørn E. Angeltveit
  2. 4

    Verwenden-streams. Hier ist eine einfache demo (nur demo - in der Praxis gibt es keine Notwendigkeit zu öffnen Datei-stream jedes mal):

    type
  Scores = record
    name: string[50];
    score: integer;
  end;

var rank: array[1..3] of scores;

procedure WriteScores(var Buf; Count: Integer);
var
  Stream: TStream;

begin
  Stream:= TFileStream.Create('test.dat', fmCreate);
  try
    Stream.WriteBuffer(Buf, SizeOf(Scores) * Count);
  finally
    Stream.Free;
  end;
end;

procedure ReadScore(var Buf; Index: Integer);
var
  Stream: TStream;

begin
  Stream:= TFileStream.Create('test.dat', fmOpenRead or fmShareDenyWrite);
  try
    Stream.Position:= Index * SizeOf(Scores);
    Stream.ReadBuffer(Buf, SizeOf(Scores));
  finally
    Stream.Free;
  end;
end;

// write rank[1..3] to test.dat
procedure TForm1.Button1Click(Sender: TObject);
begin
  rank[2].name:= '123';
  WriteScores(rank, Length(Rank));
end;

// read rank[2] from test.dat
procedure TForm1.Button2Click(Sender: TObject);
begin
  rank[2].name:= '';
  ReadScore(rank[2], 2 - Low(rank));
  ShowMessage(rank[2].name);
end;
    • Danke für die Antwort, aber dass macht wenig Sinn für mich. Es könnte auch ein wenig zu viel für etwas, das in einem Schulprojekt. Es ist nicht wichtig, ich kann es tun, wie ich kann, wenn ich wieder zur Schule.
    • +1 TStream ist der Feste Weg, um mit Dateien zu arbeiten, wenn auch nicht am einfachsten zu verstehen für Neulinge.
    • Yeh, das ist das problem. Wenn ich Zeit hatte, würde ich gerne lernen. Aber die Zeiten nicht etwas, dass ich haben eine Menge im moment, leider.
    • Nun, zusätzlich zu den file of Methode haben Sie die TStringList Klasse mit SaveToFile und LoadFromFile und die TClientDataSet component mit XML-import und-export...
    InformationsquelleAutor kludg
  3. 1

    Blick in die Hilfe unter "blockread" und oder "blockwrite". Es wird wahrscheinlich ein Beispiel

    • Ah danke, das wusste ich nicht der richtige Begriff. Ich werde schauen und berichten, wenn das löst mein problem oder nicht. =)
    InformationsquelleAutor Marco van de Voort
Schreibe einen Kommentar