typed files/pl

 type
   TMemployee = Record
   strName : String[20];
   sinContent : Single;
 end;

var
  datFile : File of TMemployee;
  recData : TMemployee;
begin
  AssignFile(datFile, 'example.txt');

  // Istniejący plik jest usuwany i ponownie tworzony
  ReWrite(datFile);

  ...
end;

begin
  ...
  Close(datFile);  // zamyka plik
  ...
end;

var
  datFile : File of TMemployee;
  recData : TMemployee;
begin
  ...

  // wypełnij rekord danymi
  recData.strName := 'abcdefghij';
  recData.sinContent := 1700.21;

  // zapisz rekord do pliku
  Write(datFile, recData); 

  ...
end;

var
  datFile : File of TMemployee;
  recData : TMemployee;
begin
  AssignFile(datFile, 'example.txt');

  Reset(datFile);          // Ustaw wskaźnik pliku na początku pliku

  Read(datFile, recData);  // Czyta rekord z pliku
  ...
end;

var
  datFile : File of TMemployee;
  recData : TMemployee;
begin
  AssignFile(datFile, 'example.txt');
  Reset (datFile);

  while not eof(datFile)      // wykonuj tak długo, dopóki dane mogą być odczytywane
    do begin
      read(datFile, recData); // odczytaj rekord z pliku
      ...
    end;

  CloseFile (datFile);
end;

begin
  AssignFile(datFile, 'example.txt');
  Reset(datFile);
  ...

  Seek(datFile, 0);        // ustawia wskaźnik pliku na początku pliku, czyli na pierwszym rekordzie
  Read(datFile, recData);  // wczytaj pierwszy rekord do zmiennej recData

  recData.sinContent := 1602.22; // aktualizuje rekord

  Seek(datFile, 0);              // ustawia wskaźnik pliku na pierwszym rekordzie
  Write(datFile, recData);       // Zapisz pierwszy rekord

  ...
end;