---
title: "Binära filer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/45206-binära-filer"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Alpha II"
published: "2002-06-04T19:26:02.000Z"
updated: "2002-06-08T17:39:05.000Z"
replies: 3
views: 243
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/45206-binära-filer"
---

# Binära filer

## #1 — Alpha II, 2002-06-04T19:26Z

Jag skulle vilja spara en array av en egen record binärt. Hur gör man det?

Permalänk: https://www.webforum.nu/p/45206

## #2 — Alpha II, 2002-06-05T15:20Z

Kom igen nu!! Jag måste få reda på hur man gör

Permalänk: https://www.webforum.nu/p/690128

## #3 — jt, 2002-06-05T21:16Z

type
  TArecord = record
    TimeDate : TDateTime;
    Name : string\[20\];
  end;
  TArecordFile = file of TArecord;

procedure Save;
var
  Arecord : TArecord;
  F: TArecordFile;
begin
  System.Assign(F,'c:\\Test.dat');
  Rewrite(F);
  with Arecord do begin
    TimeDate := now;
    Name := 'Pelle';
  end;
  system.Write(F, Arecord);
  system.Close(F);
end;

procedure Open;
var
  Arecord : TArecord;
  F: TArecordFile;
begin
  System.Assign(F,'c:\\Test.dat');
  Reset(F);
  system.read(F, Arecord);
  with Arecord do begin
    Memo1.Lines.add(DateTimeToStr(TimeDate));
    Memo1.Lines.add(Name);
  end;
  system.Close(F);
end;

Permalänk: https://www.webforum.nu/p/690232

## #4 — Alpha II, 2002-06-08T17:39Z

Jag gjorde så här:

Map är en array med records

```
procedure TForm1.LoadMap(filename: string);
var
  Stream : TFileStream;
begin
  Stream := TFileStream.Create(filename, fmOpenRead);
  try
    Stream.ReadBuffer(Map, SizeOf(Map));
  finally
    Stream.Destroy;
  end;

end;

procedure TForm1.SaveMap(filename: string);
var
  Stream: TFileStream;
begin
  Stream  := TFileStream.Create(filename, fmCreate);
  try
    Stream.WriteBuffer(map, SizeOf(map));
  finally
    Stream.Destroy;
  end;

end;
```

Permalänk: https://www.webforum.nu/p/691487

---

Tråden på webben: https://www.webforum.nu/amne/programmering/45206-binära-filer