Как создать типизированный файл?

@настрадамус · Регистрация: 09.01.2010

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

здравствуйте, не подскажите как создать типизированный файл??

@Daron Stone · 25.02.2010, 10:57

Delphi
1
2
3
4
5
6
type
myRec=record
i:integer;
str:string;
end;
var mf:file of myRec;

если не ошибаюсь, как-то так

@John_Pa9JIbHuK · 25.02.2010, 11:10

F:file of integer

@настрадамус · 25.02.2010, 11:27 **[ТС]**

а я до этого сделал вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program TextFile;
{$APPTYPE CONSOLE}
uses RusTrans;
var
MyFile: text;
Temp: string;
label: Exit;
begin
AssignFile(MyFile,  ’a:\Letter.txt’);
{$I-}
Append(MyFile);
{$I+}
if IOResult = 0
then writeln(‘Готово’) 
else
begin
writeln(‘Ошибка’);
goto Exit;
end;
while not SeekEOF do
begin
ReadLn(Temp);
WriteLn(MyFile,Temp);
end;
CloseFile(MyFile);
Reset(MyFile);
while not seekEOF do
begin
ReadLn(MyFile,Temp);
WriteLn(Temp)
end;
CloseFile(MyFile);
Exit:;
readln
end.

а так правильно?

@blazonic · 25.02.2010, 11:41

Присоединяюсь к ответу John_Pa9JIbHuK
От себя могу только добавить, что все элементы типизированного файла должны быть одного типа. Типизированные файлы могут быть любого типа, кроме файлового и опирающегося на файловый.
Пример недопустимых объявлений:

Delphi
1
2
3
4
5
6
7
8
9
10
type
  TFile1 = File of File;
  
  TFileRec = record
     A : Real;
     B : Integer;
     FileReal : File of Real;
  end;
 
  TFile2 : File of TFileRec;

К типизированным файлам можно иметь как последовательный, так и прямой доступ. При работе с прямым доступом необходимо помнить, что элементы типизированных файлом нумеруются, начиная от нуля.
Также справедливы следующие объявления:

Delphi
1
2
3
var
  FileChar : File of Char;
  FileByte : File of Byte;

Добавлено через 8 минут
настрадамус
Если ты работаешь с текстовым файлом, то объявление
MyFile: text;
является корректным.
Просто текстовые файлы это особый вид файлов. Текстовые файлы являются разновидностью файлов типа File of Char. Но по сравнению с File of Char текстовый файл имеет больше преимуществ, чем недостатков. В частности, одним из отличий является то, что текстовые файлы не имеют прямого доступа.

@настрадамус · 25.02.2010, 11:45 **[ТС]**

а это в консоле писать? че то не пойму(

@blazonic · 25.02.2010, 11:49

Да,

Pascal
1
2
3
var
  FileChar : File of Char;
  FileByte : File of Byte;

можно спокойно объявлять и в приложениях консольного типа.

Новые блоги и статьи Все статьи Все блоги /
sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .

@настрадамус 5 / 5 / 0 Регистрация: 09.01.2010 Сообщений: 161

	Как создать типизированный файл? 25.02.2010, 10:43. Показов 6030. Ответов 6 Метки нет (Все метки) здравствуйте, не подскажите как создать типизированный файл?? 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	25.02.2010, 11:10
	F:file of integer 0

@настрадамус 5 / 5 / 0 Регистрация: 09.01.2010 Сообщений: 161
	25.02.2010, 11:45 [ТС]
	а это в консоле писать? че то не пойму( 0

Опции темы