Запись record в dat файл

@Newbies · Регистрация: 16.10.2018

Студворк — интернет-сервис помощи студентам

Записывать записывает, не знаю на сколько верно, а вот прочесть не может.

Описание ClientBase

Delphi
1
2
3
4
type ClientBase = record
      Number : integer;
      Name, Adress, Date : string[50];
end;

Определение Base

Delphi
1
Base : array of TForm1.ClientBase;

Запись

Delphi
1
2
3
4
5
6
7
8
9
10
var
  Stream: TStream;
begin
  Stream:= TFileStream.Create('SaveBase.dat', fmCreate);
  try
    Stream.WriteBuffer(Base, SizeOf(ClientBase) * (length(Base) - 1));
  finally
    Stream.Free;
  end;
end;

Чтение

Delphi
1
2
3
4
5
6
7
8
9
10
var
  Stream: TStream;
begin
  Stream:= TFileStream.Create('SaveBase.dat', fmOpenRead or fmShareDenyWrite);
  try
    Stream.ReadBuffer(Base, SizeOf(ClientBase));
  finally
    Stream.Free;
  end;
end;

@Newbies · 23.10.2018, 12:32 **[ТС]**

Сообщение от Verevkin

Ни слова про дин. массивы не вижу.

Это тоже со слов преподавателя, как и структура с бинарным файлом.

Verevkin · 23.10.2018, 12:38

Сообщение от Newbies

Это тоже со слов преподавателя, как и структура с бинарным файлом.

Ну, если препод сказал "никаких списков, только динамический массив", тогда конечно.
Похоже на то, что у вас там в тюрьме категорически запрещено самостоятельное изучение предмета.
Мои соболезнования.

---------
З.Ы. Когда я учился, наши преподы наоборот поощряли саморазвитие. Вплоть до "автомата".

@D1973 · 23.10.2018, 12:47

Не по теме:

Сообщение от Verevkin

наши преподы наоборот поощряли саморазвитие

Аналогично... Многое за четверть века поменялось...

@Newbies · 23.10.2018, 12:49 **[ТС]**

Да. Программе уже пора бы поменяться...

Verevkin · 23.10.2018, 12:51

Сообщение от D1973

Аналогично... Многое за четверть века поменялось...

Поколение ЕГЭ и потребителей растёт. Какой кошмар....

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

@Newbies 10 / 7 / 4 Регистрация: 16.10.2018 Сообщений: 63
	23.10.2018, 12:49 [ТС]
	Да. Программе уже пора бы поменяться... 0